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INTRODUCTION 

This  report  contains  the  documentation  for  the  Secure 
Archival  Storage  System  hardware  architecture,  developmental 
monitor  program,  and  all  necessary  support  programs  to 
effect  programming  of  the  firmware.  The  hardware 
architecture  described  in  Appendix  A  provides  the  single 
board  computer  wire-wrap  options  and  security  modifications 
reauired  to  establish  the  hardware  configuration.  Appendix  "3 
presents 

a  command  syntax  tutorial  for  the  monitor  program  and  the 
program  listing.  The  bootload  program  which  comprises  the 
current  firmware  is  listed  in  Appendix  C,  with  the  support 
program  and  methodology  for  changing  the  firmware  provided 
in  Appendix  E.  The  Bootstrap  program,  which  loads  and  runs 
the  S/.SS  demonstration  module,  is  presented  in  Appendix  D. 

The  bootload  program  (firmware)  has  been  tested  in  a 
single  processor  environment.  The  monitor  program  is 
currently  being  tested  and  debugged,  but  is  considered 
usable  as  presented  herein.  The  bootstrap  program  has  not 
been  sufficiently  tested  and  will  reauire  further 
development . 
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APPENDIX  A  -  Hardware  Architecture 

Presented  in  this  appendix  is  an  hardware  resource 
desription  meant  to  acquaint  unfamiliar  readers  with  the 
"basic  architectural  devices  and  organization  referred  to  in 
this  thesis  effort.  The  information  necessary  to  reproduce 
the  same  hardware  architecture  is  also  contained  in  this 
appendix.  Hardware  familiarization  includes  the  Zilog  Z8000 
microprocessor,  the  Zilog  Z8010  Memory  Management  Unit 
(MMU),  and  the  Advance  Micro  Computer  Am96/4116  MonoEoard 
Computer.  What  follows  is  then  a  detailed  description  of  the 
SASS  Developmental  Architecture  built  as  a  part  of  this 
thesis  effort,  to  support  the  implementation  of  the 
initialization  design  presented  in  this  thesis,  and  to 
support  follow  on  work  in  the  SASS.  The  intent  was  to  make 
this  appendix  the  hardware  reference  manual  in  support  of 
future  research  efforts.  Readers  requiring  more  specific 
information  on  the  hardware  are  referred  to  the  appropriate 
literature  listed  in  the  references. 
A.   ZILOG  Z3000  MICROPROCESSOR 

The  Z8000  is  manufactured  in  two  versions,  the  48-pin 
Z8C£1  and  the  4?-pin  Z3002 ,  which  differ  only  in  the  manner 
and  range  of  memory  addressing.  Except  for  this  feature, 
called  memory  segmentation,  they  are  functionally  identical. 
The   Z8001   contains   seven   output  lines  for  segment  number 


selection  and  one  input  line  as  a  segment  trap  to  support 
memory  segmentation.  Without  segmentation,  the  Z8002  can 
address  up  to  six  distinct,  external  memory  spaces  of  64K 
bytes  each,  while  the  segmented  Z8001  can  access  128 
addressable  segments  that  are  each  64K  bytes  in  size.  A 
total  of  8  Megabytes  can  be  addressed  in  this  way  with 
segmentation. 

The  CPU  operates  in  one  of  two  domains:  system  or  normal 
mode.  In  the  system  mode  all  features  of  the  processor  are 
available  to  the  running  program,  while  in  the  normal  mode 
the  running  program  is  isolated  from  potentially  dangerous 
activities,  such  as  instructions  for  basic  I/O  and  changing 
system  parameters. 

Multiprogramming  is  supported  by  the  concommitant 
Test-and-Set  instruction  and  hardware  context  switching. 
Test-and-Set  instructions  allow  single  or  block  memory 
transactions  without  interruption,  thus  accommodating 
conventional  spin-lock  synchronization  and  concurrent 
read/write  access  to  shared  memory  in  a  sinele  processor 
environment.  Changing  the  running  environment  or  context  of 
a  process  requires  the  reloading  cf  the  execution  point 
which  is  defined  in  the  Z8000  by  two  unique  registers,  the 
Program  Counter  (PC)  and  the  Flag-and  Control  Word  (FCW). 
The  PC  holds  the  address  of  the  next  instruction  to  be 
executed  and  the  FCW  contains  the  mode  in  which  it  is  to  be 
executed.  Multiprocessing  is  facilitated  by  a  combination  of 


instruction  and  hardware  features.  Bus  control  signals 
(EITSR50  and  BUSAK  pins)  arbitrate  the  use  of  the  multiplexed 
address  and  data  bus  by  external  devices,  i.e.  a  DMA  or  disk 
controller.  The  Multi-Micro  control  signals  (Micro-In  and 
Micro-Out  lines)  when  used  in  conjunction  with  certain 
special  purpose  instructions,  allow  a  more  general  form  of 
resource  sharing  amoung  multiple  processors. 

In  addition  to  the  above  required  attributes,  the  Z8000 
offers  several  very  flexible  architectural  features  that  can 
be  classified  as:  CPU  control  and  status,  register 
structure,  and  addressing  modes. 

1.   Register  Structure 

The  Z3000  CPU  is  a  register-oriented  machine  that 
provides  a  regular  register  structure  for  manipulating  bytes 
(8-bits),  words  (16-bits),  and  long-word  (32-bits)  values. 
The  instruction  set  provides  for  bit  and  nibble  (4-bit) 
access  to  the  various  register  contents.  The  sixteen  16-bit 
registers  in  the  architecture  can  be  referenced  as  sixteen 
8-bit,  sixteen  16-bit,  eight  32-bit,  or  four  quad-word 
64-bit  registers.  All  word  or  long-word  registers  (with  the 
exception  of  ?.0  and  P.R0)  may  be  used  as  general  purpose 
stack  registers  and  manipulated  with  the  PUSH  and  POP 
instructions.  The  R15  and  RR14  registers  are  the  stack 
pointers  used  by  the  Z8002  and  Z8001  respectfully,  when 
executing  CALL  and  RETurn  instructions,  and  when  processing 
interrupts   and   traps,   figure   A-l   shows    the    register 


structure  of  the  ZS002  processors.  The  Z3001  requires  a  R14' 
register  for  segmentation. 

Additional  special  registers  also  comprise  the 
register  architecture.  As  described  previously,  the 
execution  point  of  a  process  is  contained  in  two  unique 
registers,  the  Program  Counter  (PC)  and  the  Flag-and  Control 
Word  (FCW).  The  high  byte  of  the  FCW  sets  the  mode  of 
operation  of  the  processor  hy  selecting  normal/system, 
segmented/non-segmented,  and  by  enabling  or  disabling 
vectored  interrupts  (VI)  and  non-vectored  interrupt  (NVI). 
The  lower  byte  of  the  FCW  contains  flags  that  may  be  used  by 
any  program  to  make  conditional  jumps  or  other  control 
decisions  affecting  program  flow  of  control.  These  flags  are 
set  or  reset  depending  on  the  results  of  preceding 
instructions.  Figure  A -2  illustrates  the  organization  of  the 
program  status  registers. 

Exception  processing  is  directed  through  the  use  of 
another  special  register,  the  Program  Status  Area  Pointer 
'PSA?).  At  initialization  a  table  in  memory  must  be 
allocated  which  contains  all  the  FCW  and  PC  values  needed 
for  each  of  the  possible  internal  'traps)  and  external 
(interrupts)  events.  The  organization  of  this  Program  Status 
Area  pointed  to  by  the  PS K?  is  shown  in  Figure  A-3. 
Interrupts  are  external  asynchronous  events  requiring  CPU 
attention,  generally  by  external  devices.  Traps  are 
synchronous  events  resulting  from  the  execution   of   certain 
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instructions.  Both  are  processed  in  a  similar  manner  by  the 
CPU.  The  processor  supports  three  types  of  interrupts: 
non-maskable,  vectored  and  non-vectored;  and  four  system 
traps:  system  call,  unimplemented  instruction,  privileged 
instruction  and  segmentation  trap.  The  vectored  and 
non-vectored  interrupts  are  internally  maskable  within  the 
CPU.  When  an  exception  occurs,  the  current  program  status  is 
automatically  pushed  onto  the  system  stack.  The  program 
status  in  this  instance  refers  to  the  processor  status  (PC 
and  ECW )  and  a  16-bit  identifier  containing  the  reason  or 
source  of  the  exception. 

The  last  special  register  in  the  register  structure 
is  the  REFRESH  register,  which  is  designed  to  provide 
dynamic  memory  refreshing:  on  an  estimated  demand'  basis.  The 
upper  byte  is  loaded  with  a  refresh  rate  count  and  bit-15  is 
set  to  enable  the  memory  refresh  activity. 
2.  CPU  Control  and  Status 

The  Z8000  CPU  incorporates  three  control  input  lines 
and  four  status  output  lines.  Input  control  lines  change  CPU 
states,  while  the  status  output  lines  may  be  decoded  to 
indicate  internal  CPU  status  (e.g.,  instruction  fetches,  I/O 
references  or  interrupt  acknowledges). 

The  RESET  control  line  interrupts  normal  CPU 
operations  and  causes  the  CPU  to  clear  itself  completely 
(even  of  interrupt  and  bus  reauests).  Two  consecutive  read 
cycles  are  executed  in  the  system  mode   that   load   the  FCW 


12 


Flag-and   Control   Word 


r 


System/Normal 

Vectored  Interrupt  Enable 

Non-Vectored  Interrupt  Enable 


0 

S/N 

0 

VIE 

NVI 

0 

0 

0 

C 

2 

S 

?/v 

DA 

H 

0 

0 

Carry 

Zero 

Sign 


Parity/Overflow 
Decimal  Adjust- 
Half  Carry 


Program  Counter 


ADDRESS 


ZS002  Program  Status  (PS)  Registers 
FIGURE  A -2 


13 


Z8002 


FCW 


PC 


FCW 


Vectored 
Interrupt 
Jump  Table 


\ 


RESERVED 


UNIMPLEMENTED 
INSTRUCTION 


PRIVILEGED 
INSTRUCTION 


SYSTEM 
CALL 


SEGMENT 
TRAP 


NON-MASKABLE 
INTERRUPT 


NON-VECTORED 
INTERRUPT 


VECTORED  INT, 


PC  0 


PC  1 


PC  2 


PC  256 


12 

14 

20 

24 

28 
30 
32 
34 
36 


540 


Program  Status  Area  (PSA) 
FIGURE  A-3 


14 


with  the  contents  of  memory  location  0002  and  load  the 
contents  of  location  0004  into  the  PC.  In  the  case  of  the 
segmented  Z6001 ,  location  0004  contains  the  PC  segment 
number  and  0036  contains  the  offset  within  the  segment.  In 
either  case,  after  loading  of  the  initialized  system 
execution  point,  the  following  first  instruction  fetch  (IF1) 
starts  the  CPU  running.  This  first  PC  must,  of  course,  point 
into  executable  code,  typically  in  firmware. 

For  special  purposes,  external  devices  can  control 
the  execution  of  the  CPU  "by  activating  the  STOP  control 
line.  This  freezes  the  next  instruction  without  loss  of 
memory  refresh  as  occurs  with  bus  requests.  This  control 
line  can  be  used  to  synchronize  the  interactions  of  a  Z8000 
and  extended-processor  units  (EPU's),  which  can,  for  example 
perform  floating  point  operations. 

The  WAIT  signal  input  will  allow  slower  external 
devices  to  stretch  the  number  of  clock  cycles  between  the 
address  strobe  (AS)  and  data  strobe  (DS)  within  a  machine 
cycle,  for  as  long  as  necessary  to  receive  or  assemble  the 
data.  In  this  way,  a  16-bit  address  directs  a  16-bit  data 
transfer  that  is  essentially  independent  of  the  processor's 
clock  and  is  thus  asynchronous. 

Internal  CPU  status  indications  can  be  obtained  by 
decoding  the  four  output  status  lines  from  the  processor. 
Figure  A-4  lists  the  decoded  signals.  Decoded  status,  for 
example  can  be  used  to  segregate   program,   data   and   stack 
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memory  areas.  When  used  in  conjunction  with  the 
normal/system  output  line  from  the  CPU,  six  distinct 
physical  memory  regions  can  be  formed:  normal  program,  data, 
and  stack;  and  system  program,  data,  and  stack.  The  four 
status  output  lines  allow  the  CPU  many  flexible  control 
options  over  external  devices. 
3.   Adressing  Modes 

The  addressing  mode  of  a  Z8000  instruction  defines, 
either  explicitly  or  implicitly,  the  address  space  it 
references  and  the  method  used  to  compute  the  address 
itself.  In  general,  an  addressing  mode  explicitly  specifies 
either  register  address  space  or  memory  address  space. 
Program  memory  address  space  and  I/O  address  spaces  are 
usually  implied  by  the  instruction.  Data  may  be  addressed  in 
eight  basic  modes:  Register  (R),  Immediate  (IM),  Direct 
Address  (DA),  Indirect  Register  (IR),  Indexed  (X),  Relative 
Address  (HA),  Based  Address  (3A)  and  Base  Indexed  (BX). 

In  the  Immediate  mode  (IM),  the  data  is  part  of  an 
instruction  itself;  in  the  Register  mode  (R),  the  register 
to  which  the  operand  is  to  be  written  into  or  read  from  is 
specified.  The  address  of  the  operand  is  carried  directly 
with  the  instruction  in  the  Direct  Adressing  mode  (DA).  The 
IM,  R  and  DA  modes  all  require  that  the  operand's  address  be 
static  or  known  at  compile  time,  before  the  program  is  run. 
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The  remaining  address  modes  allow  dynamic  or  runtime 
computation  of  addresses  and/or  displacements  in  registers. 
The  Indirect  Register  mode  assumes  the  address  of  the 
operand  to  he  placed  at  runtime  in  the  specified  register 
contained  in  the  instruction?  the  Indexed  mode  allows  a 
program  to  calculated  a  displacement  from  a  fixed  base 
address.  This  is  more  commonly  used  for  indexing  fixed 
tables.  The  Base  Address  mode  is  a  reflection  of  the  indexed 
mode  in  that  the  base  address  rather  than  the  displacement 
is  calculated  at  runtime.  A  common  use  of  this  mode  is  for 
accessing  identical  portions  of  different  instances  of  a 
data  structure.  The  Base  Indexed  mode  combines  the  base 
address  and  indexed  modes  to  allow  the  creation  of  fully 
relocatable,  reentrant  code  (relocatable  specifies  that  the 
code  may  be  moved  to  any  location  in  memory,  and  reentrant 
means  that  the  code  does  not  modify  itself).  The  final 
addressing  mode  is  the  Relative  mode,  inwhich  the  PC  is 
always  used  as  the  base  address,  combined  with  the  specified 
displacement  contained  in  the  instruction,  to  determine  the 
absolute  address. 
B.   ZILOG  Z8010  MEMORY  MANAGEMENT  UNIT 

In  the  segmented  Z8001  processor,  the  addresses  actually 
manipulated  are  logical  two-dimensional  addresses  consisting 
of  a  7-bit  segment  number  and  a  16-bit  offset  within  the 
segment.  The  Zilog  Z8010  Memory  Management  Unit  (MMU)  takes 
the  23-bit  logical  addresses  from   the   CPU  and  transforms 
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them  into  24-bit  absolute  addresses  for  addressing  physical 
memory [22].  This  address  transformation  process  is  called 
relocation.  A  translation  table  of  registers  in  the  MMU 
associates  the  7-bit  segment  number  (SN)  with  the  base 
address  of  one  of  64  diferent  physical  memory  segments.  The 
16-bit  offset  is  added  to  the  physical  base  address  to 
obtain  the  actual  physical  address.  Figure  A-5  illustrates 
the  relocation  process.  The  base  address  register  file  may 
be  dynamically  reloaded  as  processes  are  created,  suspended 
or  changed. 

The  MMU  also  provides  segment  protection  and  memory 
management  facilities.  Each  segment  can  have  several 
attributes  associated  with  it  that  provide  memory  access 
protection  (viz.  read/write  access,  normal/system  mode  only) 
and  memory  management  data  (viz.  whether  changed  or 
referenced) . 

MMU  defined  segments  are  variable  in  size  ranging  from 
256  bytes  to  64X  bytes  in  increments  of  256  bytes.  Pairs  of 
64-segment  MMU's  are  necessary  to  support  the  128  segment 
numbers  available  from  segment  number  line  decodings. 

C.   AMD  Am96/4116  MONOBOARD  COMPUTER 

A  major  factor  in  the  selection  of  the  Zilog  Z8000 
family  of  microprocessors  was  the  commercial  availability  of 
the  Advanced  Micro  Devices  (AMD)  Am96/4116  MonoBoard 
Computer   (MBC).   The  MBC  is  a  complete  microcomputer  system 
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on  one  12.0  by  6.75  inch  printed,  multi-layered  circuit 
board.  The  MBC  version  available  at  the  outset  of  the  SASS 
project  contains  a  5*Mhz  Z8002  non-segmented  processor,  32K 
bytes  of  random-access  memory  (RAM),  up  to  8K  bytes  of 
electronically  programmable  read-only  memory  (EPROM), 
programmable  serial  and  parallel  I/O  interfaces,  a  real-time 
clock  and  counter  system,  a  programmable  interrupt 
controller,  and  five  edge  connectors  providing  bus  and 
peripheral  interface  capability  [231.  Figure  A-6  depicts  the 
MEC  architecture  in  block  diagram  form. 

Multibus  interfacing  is  through  standard  edge  connector 
PI,  which  supports  20-bit  addressing,  eight  bus  interrupt 
lines,  and  bus  arbitration  and  timing  lines.  The  Am9551 
serial  I/O  components  interface  offboard  to  peripheral 
devices  through  edge  connectors  P4  and  P5.  Serial  port  1 
fP5)  supports  all  interconnections  of  a  standard  RS232C 
interface,  while  serial  port  2  (P4)  does  not  support 
synchronous  handshaking  capabilities.  Edge  connector  P3 
interfaces  the  three  8-blt  parallel  ports  (A,B,C),  from  the 
Am@255A  parallel  I/O  integrated  circuit.  All  of  the  insuts 
and  outputs  of  the  Am9513  Timing  Controller  chip  are 
available  through  edge  connector  P2. 

Included  on  the  Am96/4116  is  a  32  source  interrupt 
jumper  matrix  for  input  to  any  of  the  eight  interrupt  inputs 
•'IRQ0  -  IRQ7)  of  the  Am8259A  Interrupt  Controller.  The 
Jumper  matrix   contains   bi-directional   Multibus   interrupt 
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interfacing  (IMT0*  -  INT7*)  for  external  device  interrupt 
communications;  two  parallel  port  (C)  single  bit  sources  for 
use  as  software  generated  interrupts;  receive  and  transmit 
ready  signals  from  the  two  serial  I/O  components  for 
asynchronous  communications  with  peripheral  devices;  five 
timer  or  counter  output  signals  from  the  Am9513  ICJ  and 
several  sources  from  the  onboard  fault  detection  circuitry. 
All  interrupt  sources  are  available  as  a  Z8000  non-vectored 
interrupt  or  non-maskable  interrupt  as  well,  through  the 
interrupt  Jumper  matrix. 

The  Am6255A  parallel  I/O  component  orovides  three  8-bit 
parallel  ports,  one  of  which  (C)  can  be  used  to  program 
under  software  control,  the  function  of  the  other  two  ports 
(A  and  B).  In  addition,  a  4-bit  portion  of  port  C  can  be 
used  as  a  Multibus  address  source  for  the  higher  address 
bits  (AD10-AD13),  under  program  control.  The  significance  of 
this  will  be  seen  later  on.  Two  bits  of  the  C  port,  as 
mentioned  previously,  also  serve  as  signal  sources  for 
software  generated  interrupts. 

The  onboard  dynamic  RAM  (32K  bytes)  is  dual  ported,  with 
Multibus  access  controlled  by  an  onboard  control  logic.  This 
capability  is  designed  for  a  multi-processor  environment 
where  maximum  flexibility  of  available  physical  memory  is 
desired;  however,  the  SASS  design  goal  of  memory 
segmentation  cannot  tolerate  a  single  RAM  memory  space 
having  two  addresses  and  thereby  requiring   particular   care 

23 


to  disable  this  option.  The  MBC  can  support  an  optional  2, 
4,  nr  8K  "byte  read-only  memory  (ROM)  in  a  shadow  mode?  the 
ROM  is  shadowed  over  existing  memory  space  by  CPU  direction. 
The  ROM  can  support  the  system  firmware. 

Provided  on  the  MBC  is  an  Am9513  Timing  Controller  that 
contains  five  Counter  Logic  Groups  consisting  of  a  16-bit 
general  counter  with  associated  control  and  output  logic,  a 
16-bit  Load  register,  a  16-bit  Eold  register  and  a  16-bit 
Mode  register  [20].  In  addition,  counter  groups  1  and  2  also 
include  16-bit  comparator  and  Alarm  registers.  The  Counter 
Mode  Register  is  used  to  control  all  of  the  individual 
options  available  with  its  associated  general  counter  group. 
The  Load  register  is  used  to  control  the  effective  length  of 
the  general  counter,  while  the  Hold  register  is  used  to 
store  accumulated  counter  values  for  later  transfer  to  the 
host  processor.  The  Alarm  and  comparator  registers  are  used 
to  detect  and  signal  specific  values  in  the  general  counter. 
2ach  of  the  counter  groups  can  serve  as  independent  or 
cascaded,  count-down  or  count-up  counters  with  gated  or 
nongated  count  sources.  Each  provides  an  output  signal  to 
the  interrupt  jumper  matrix  and  the  P2  edge  connector  for 
offboard  applications. 

CPU  onboard  accessing  of  the  individual  IC's  is 
accomplished  through  a  decoding  of  the  addresses  contained 
in  the  Z8000  IN/CUT  instructions;  components  are  enabled 
appropriately.    All    programmable    components   must   be 
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initialized  to  some  consistent  state  as  the   first   step   in 
any  initialization  mechanism. 

D.   DEVELOPMENTAL  SYSTEM 

As  stated  previously,  the  primary  feature  desired  in  the 
SASS  Developmental  Architecture  (SDA)  is  the  external  "bus. 
To  acheive  this,  the  AmS6/4116  Monoboard  must  replace  the 
Zilog  Z8000  Development  Module  (DM)  which  has  previously 
been  the  platform  for  SASS  development.  Figure  A-7  shows  the 
end  product  after  the  substitution.  The  remaining 
developmental  components  from  the  original  system  consist  of 
the  Zilog  MCZ-1/05  Microcomputer  System  (MCZ)  and  a  CRT 
terminal.  A  firmware  monitor  program  for  the  MonoBoard  was 
needed  to  affect  the  substitution.  The  firmware  will  be 
discussed  under  the  SDA  to  follow. 

1.   The  Zilog  MCZ-1/05  Microcomputer  System 

The  MCZ-1/05  Microcomputer  System  is  a  disk-based 
microcomputer  unit,  utilizing  the  Z80  family  of 
microcomputer  cards.  The  basic  system  includes  two  boards:  a 
Z80  microcomputer  board  (MCB)  for  performing  primary  system 
control,  and  a  Z80  memory  disk  controller  (MDC)  for 
interfacing  the  dual  floppy  disk  drive.  These  two  cards 
constitute  the  basic  MCZ  system,  that  provides  60K  bytes  of 
RAM  memory,  3K  bytes  of  firmware,  control  of  the  disk  drive 
module,  and  communications  with  the  Z8000  MBC  through  an 
asynchronous  serial  RS-232  interface. 
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Supporting  software  consists  of  a  full-disk 
operating  system  (RIO),  which  includes  a  macroassembler, 
linker,  text  editor,  and  file  utility.  Details  concerning 
the  MCZ  hardware  or  software  can  be  found  in  the  listed 
references.  The  macroassembler  provides  for  assembling 
relocatable  object  modules  from  PLZ/ASM  language  source  code 
entered  with  the  ?IO  text  editor.  Higher  level  language 
support,  as  PLZ/SYS,  is  currently  not  available  for 
developmental  use.  Subsequently  relocatable  modules  can  be 
linked  together  with  the  Linker  and  core  images  located  with 
the  Imager.  Object  files  are  then  downloaded  into  the  MBC 
memory  for  executing  and  debugging.  The  ability  to  upload 
from  the  MBC  memory  into  the  RIO  file  structure  is  also 
available. 

User  communication  with  the  RIO  operating  system  is 
via  the  development  terminal,  through  the  Am96/4116 
MonoBoard.  The  MBC  developmental  monitor  provides  for  three 
modes  of  operation:  1)  the  Monitor  Mode,  which  is  used  to 
enter,  debug  and  execute  software  residing  in  MBC  RAMI  2) 
the  Transparent  Mode,  which  is  used  to  transmit  data  between 
the  development  terminal  and  the  MCZ  system;  and  3)  the 
Upload/Download  Mode,  used  for  transferring  object  files 
between  MBC  memory  and  the  MCZ  microcomputer  system. 
Offboard  Am96/4116  MonoBoard  communications  with  the  MCZ 
system  and  the  development  terminal  is  asynchronous  through 
the  two  MBC  serial  ports  as  designated  in  Figure  A-7. 
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2.   Am96/4116  Configuration 

The  commercial  MonoBoard  provides  wire-wrap  options 
for  configuring  the  MBC  for  specific  applications.  The 
options  available  include  primary  memory  addressing  (both 
onboard  and  offboard),  interrupt/trap  source  selection,  and 
various  device  configuration  settings.  An  appropriate 
wire-wrap  configuration  for  each  of  these  areas  was  defined 
from  requirement  consideration  of  the  SASS  and  the 
developmental  system.  Figure  A-8  lists  the  finalized 
Mono3oard  wire-wrap  configuration.  This  configuration 
results  in  the  following  interrupt  utilization  in  the  SASS 
Developmental  Architecture: 

Non-Vectored  Interrupt  -  Hardware  PRE-EMPT 

Vectored  Interrupts: 

INT0  -    Console  INT 

INT1  -    N/A 

INT2  -    MCZ  INT 

INT3  -    Onboard  PRE-EMPT 

INT4  -     N/A 

INT5  -    Real  Time  Clock: 

INT6  -    Single  Inst.  Execution 

INT7  -    Illegal  Memory  Reference 

Interrupt  handler  routines  when  assigned  in  this  manner,  are 

supported  by  this  wire-wrap  configuration. 

For   compatability  with   the   Am96/4116  RAM  Memory 

Board,  address  bits  ADF  and   AD10   for   offboard   addressing 

were   switched.   Address   bit   ADF   uses   the  buffered 

Normal/System  CPU  signal  as  its  source.  When   the  secondary 

storage  device   (i.e.,   hard  disk)   is  installed,  offboard 

address  bit  AD11  should  be  sourced  to  the  instruction  fetch 
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signal  (I-FETCH*)  signal  by  connections  of  Dins  68-69  and 
38-39.  This  will  allow  code  execution  only  from  one  of  the 
two  memory  hoards,  and  data  fetches  in  two  domains  within 
the  other. 

3.   Am96/4116  Modifications 

Global  memory  partitioning  by  domains  is 
accomplished  by  making  use  of  the  processor's  Normal/System 
signal  for  offboard  addresses.  Partitioning  of  onboard  local 
memory  is  more  difficult.  Use  of  available  onboard  logic 
gates  and  wiring  modifications  were  reauired  to  achieve  the 
desired  segregation.  In  the  SASS  design  for  MMU  simulation, 
a  portion  of  local  memory  must  be  accessible  in  the  system 
mode  only,  thereby  protecting  the  information  contained  in 
this  area  (i.e.,  the  Kernel).  Tor  simplicity  the  design 
choice  was  made  to  use  the  address  bit  ABE  to  equally  divide 
the  local  memory  space.  The  desire  is  to  make  the  lower  half 
(0000-3FF?)  accessible  in  the  system  mode  only  and  the  upper 
half  (4000-7ITF)  accessible  in  both  the  normal  and  system 
mode.  Given  those  two  signals,  the  following  truth  table  was 
derived : 
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POWEPU?  P.ESET/INIT 
Pin  190  -  191 


ONBOARD  RAM  SELECT 
Pin  193  -  194 
(0000-7PFF) 


BUS  CLOCK  SELECT 
Fir  19  -  20 

DAISEY-CHAIN  BUS 
Pic  184  -  185 
21  -  22 


PRIORITY 
no  chain) 


SERIAL  PORTS  4  &  5 

Pin  132  -  133  (RTS1-CTS1) 
139  -  140  (9600  BAUD) 
141  -  143  '9600  BAUD 
179  -  180  fCTS2-rTND) 


GLOBAL  MEMORY 

Pin  36  -  63 

62  -  37 

65  -  66 


SELECT 
(ADF-AD10) 
(N/S-ADF) 
(N/S) 


PROM  SELECTION  (2716) 
Pin  25  -  27 
28  -  30 
177  -  178 
174  -  176 
71  -  72 


OTHER 


Pin 


33 
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42 

128 


34 
39 
41 
43 
130 


Pin 


136 
148 
151 
153 
163 


137 
162 
150 
154 
164 
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(INT1*)  Pin  ^9  -  128 
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Non-Vectored  Interrupt: 

(INT4*)    Pin      95   -   129 


(NVI  ) 
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Hardware   Preemot 


Am96/4116   MBC   Wire-Wrap   Options 
FIGURE    A-8 
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Address  Bit  Truth  Table 
Figure  A-9 

The  NAND  signal  becomes  the  new  ABE  bit. 

A  search  of  available  onboard  losic  gates  produced 
the  necessary  components  to  construct  the  circuitry,  and 
solder  connections  were  made  as  shown: 
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The  above  modification  produced  the  desired 
security,  however  addressing  in  the  normal  mode  below  4000 
HEX  produced  some  undesirable  effects.  For  instance,  a  write 
to  address  2000  HEX  would  actually  write  to  address  6000 
HEX,  unknown  to  the  user.  Another  design  decision  was  made 
to  prevent  this  occurence  by  providing  an  interrupt  source 
from  this  circuitry.  The  following  logic  generated  the 
interrupt : 


ABE 

~ABE 

'NAND' 

+ 

'AND' 

1 

0 

1 

0 

0 

1 

1 

1 

1 

0 

0 

0 

0 

1 

0 

0 

Interrupt  Truth  Table 
Figure  A-ll 

However,  precautions  must  be  taken  to  ureclude  the 
generation  of  this  interrupt  when  addressing  global  memory 
from  8000-C000  HEX.  The  address  bit  ABF  was  used  to 
enable/disable  interrupt  generation  in  the  following 
circuitry: 
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74S240 
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74S244 


74S244 


Interrupt  Modification 
~    Figure  A-12 


The  additional  drivers  are  supplied  to  the  ABF  signal  for 
timing  considerations.  With  this  circuitry  an  interrupt 
(INT7)  is  generated  only  when  an  access  to  low  local  memory 
(0000-3FFF)  is  made  in  the  normal  mode. 

4.   Am96/1064  Memory  Board  Configuration 

The  Am96/1064  is  a  single  hoard  dynamic  random 
access  memory  system  with  64K  bytes  of  addressable  memory 
and  onboard  control  and  refresh  logic  for  maintaining  stored 
data.  It  is  Multibus  compatible  with  a  il5nsec  access  time. 
Normal  installation  procedures  were  adhered  to  with  the 
following  execeptions.  On  one  of  two  such  boards  in  the 
system,   bus  address   comparator   (Ulll)  is  allowed  to  pass 
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address  bit  AD10  (N/S*)  to  onboard  logic  for  selection  of 
one  of  two  planes  of  32£  bytes  of  memory.  One  addressable  in 
the  normal  mode  and  the  other  addressable  in  the  system 
mode  . 

As  mentioned  earlier,  when  a  suitable  secondary 
storage  device  is  installed  the  second  memory  board  can  be 
added  and  the  instruction  fetch  signal  (I-FETCH*)  can  become 
the  source  for  address  bit  AD11.  For  the  memory  board 
mentioned  above,  address  bit  AD11  will  be  forced  high  (Pin 
connections  60-59  removed)  and  the  second  board  will  have 
this  bit  pulled  low  (I-FETCH*)  on  the  comparator.  This 
provides  the  read-only  function.  No  additional  wiring 
modifications  are  required. 

C.   SUMMARY 

This  section  provided  a  brief  tutorial  into  the 
architecture  of  the  Z8000  family  of  microprocessors.  The 
intent  was  to  provide  the  reader  with  the  necessary  hardware 
background  to  understand  the  content  of  this  thesis,  and  to 
reconstruct  the  hardware  architecture  used  in  this  effort. 
In  answer  to  any  additional  auestions  that  may  arise,  the 
reader  is  encouraged  to  consult  the  referenced  literature. 
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APPENDIX  B  -  Developmental  Monitor  Program  Listing 

The  developmental  monitor  program  is  presented  in  this 
appendix  in  two  parts,  the  command  syntax  description  and 
program  listing.  The  command  syntax  description  is  a 
complete  users  manual  for  the  monitor  program.  The  program 
listing  contains  the  eight  program  modules  that  comprise  the 
PLZ/ASM  program  listing.  The  somewhat  unstructured  program 
appearance  stems  from  the  reauirement  to  maintain  the 
organizational  structure  of  certain  required  functions,  in 
particular  the  MCZ  system  communication  protocol.  A 
conscious  effort  was  made  to  preserve  the  original  command 
syntax . 

A.   COMMAND  SYNTAX 

The  developmental  monitor  consists  of  eleven  commands: 
four  performing  normal  development  functions  for  display  and 
setting  of  processor  memory  and  registers;  four  operations 
for  debugging  of  user  programs*  two  providing 
upload/download  capability  with  the  MCZ  system;  and  one 
command  for  entering  a  transparent  mode  of  operation  between 
the  MCZ  system  and  the  user  console.  A  command  line 
description  is  presented  for  each  command.  Command  line 
representations  adhere  to  the  following  conventions: 
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(1)  the  use  of  angle  brackets  <>  denotes  a  required  entry, 

(2)  the  use  of  square  brackets  []  denotes  an  optional  entry. 


The  command  lines  serve  as  a   ready  reference   for   command 
syntax  familiarization  in  the  following  descriptions. 
1.   DISPLAY  Command 

D[isplay]  <adr>  [no.  words] 

The  display  command  can  be  used  to  perform  two 
operations:  the  display  of  a  block  of  memory  in  word  format 
(16-bits),  and  to  display  the  contents  of  a  sinele  address 
with  the  option  to  change  the  contents.  Use  of  the  command 
with  a  starting  HEX  address,  followed  by  a  hexadecimal 
number  indicating  the  number  of  words  desired,  will  display 
the  contents  of  a  block  of  memory.  Use  of  the  command 
followed  by  a  single  address  enters  a  substitution  mode.  The 
contents  of  the  single  address  will  be  displayed  on  the 
console  followed  by  a  prompt  (*)  indicating  to  the  user  that 
he  has  three  options:  (1)  entering  a  new  value  will  change 
the  contents  of  that  location,  (2)  entering  a  carriage 
return  <CR>  sequentially  steps  through  memory  leaving  the 
contents  unchanged,  and  (3)  entering  a  '0'  will  terminate 
the  substitution  mode  of  operation  and  return  control  to  the 
monitor  orogram. 
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2.  REGISTER  Command 

R[egister]  [register  name] 

The  register  command  displays  the  current  contents 
of  registers  R0-R15,  PC  and  FCW.  Use  of  the  command  alone 
will  display  the  current  contents  of  all  registers  and 
return  to  the  monitor.  Use  of  the  optional  register  name 
will  enter  a  substitution  mode  as  described  above,  and 
proceed  sequentially  until  either  a  'Q'  is  entered  or  all 
registers  have  teen  displayed.  Control  is  then  returned  to 
the  monitor. 

3.  MOVE  Command 

M[ovel  <old  adr>  <new  adr>  <no.  bytes> 

The  move  command  moves  the  contents  of  the  specified 
block  of  memory  to  a  new  location,  without  altering  the 
contents  of  the  old  locations.  The  old  address  and  number  of 
bytes  specifies  the  block  to  be  moved?  and  the  new  address 
specifies  the  new  starting  address. 

4.  FILL  Command 

F[ill]  <start  adr>  <end  adr>  <data> 

The  fill  command  changes  the  memory  contents 
inclusively  from  the  specified  starting  address  to  the 
ending  address,  with  the  user  supplied  hexidecimal  data. 
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5.  G-0  Command 

G[ol 

The  go  command  starts  user  program  execution  at  the 
execution  point  defined  "by  previously  user  set  PC  and  FCW 
registers. 

6.  JUMP  Command 

J[umpl  <start  adr> 

The  jump  command  starts  execution  of  a  user's 
program  from  the  address  specified,  using  the  current  FCW 
register  value. 

7.  BREAK  Command 

B[reak]  [address]  [no.  breaks] 

The  break  command  is  used  to  set  a  break  point 
within  a  user's  program.  When  the  break  point  is  encountered 
during  normal  execution  of  the  user  program,  execution  is 
terminated,  user  registers  and  program  status  is  saved,  and 
the  message  'BREAK  AT  <address>'  is  sent  to  the  console.  Use 
of  the  break  command  alone  will  clear  any  set  break  points. 
User  has  the  option  of  specifying  the  number  of  times  that 
the  break  point  must  be  encountered  before  program  execution 
is  terminated;  the  default  value  is  1. 


38 


9.   NEXT  Command 

N[ext]  [no.  instructions] 

The  next  command  is  used  to  single  step  through  the 
execution  of  a  user's  program.  The  contents  of  the  CPU 
registers  after  each  instruction  execution  are  displayed  to 
the  user.  Multiple  instruction  executions  can  be  optionally 
entered  by  the  user?  the  default  value  is  1. 

9.   QUIT  Command 

0[uit] 

Use  of  the  quit  command  places  the  MonoBoard  in  a 
transparent  mode  where  it  performs  as  a  communication  relay 
between  the  MCZ  RIC  operating  system  and  the  user  console. 
To  the  user  the  appearance  is  complete  operation  within  the 
MCZ  system.  To  exit  the  transparent  mode,  the  Non-Maskable 
Interrupt  (INTR  switch)  must  be  given,  which  saves  user 
registers  and  returns  control  to  the  monitor. 

10.   LOAD  Command 

L[oadl  <filename>  [load  adr] 

The  load  command  downloads  program  files  from  the 
MCZ  RIO  file  structure  into  the  Z8000  system  for  execution. 
The  load  address  can  be  optionally  specified;  default  is  to 
the  load  address  passed  with  the   file   from   RIC.   After   a 
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successful  download  operation,  the  message  'ENTRY  POINT 
<address>'  is  sent  to  the  console  showing  the  load  address 
used  . 

11.   SEND  Command 

S  [end]  <filename>  <start  adr>  <end  adr^  [entry  adr] 


The  send  command  is  used  to  save  the  contents  of  a 
specified  block  of  Z8000  memory  within  the  RIO  file  system. 
The  optional  entry  address  "becomes  the  default  load  address 
for  downloading  with  the  load  command;  otherwise  the  start 
address  becomes  the  default  address. 

12.   Alerts 

Within  the  hardware  architecture  are  certain 
interrupts  that  require  user  notification  on  occurrence.  The 
following  is  a  list  of  the  current  interrupt  messages: 


'NMI'  Results  from  a  Non-Maskable 

interrupt  generation  by 
depression  of  INTR  switch. 

'ILLEGAL  MEMORY  REFERENCE'    Results  from  illegal 

memory  reference  in 
normal  mode. 

'UNKNOWN  TRAP'  Results  from  interrupt/trap 

not  currently  used  in  the 
architecture . 


What  follows  in  the  next   section   is   an  annotated 
source  listing  for  the  monitor  program. 
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B.   MONITOR  PROGRAM  LISTING 
1.   EXECUTI ;e  MODULE 


Z8000ASM   2.02 
LOC     OEJ  CODE 


STMT  SOURCE  STATEMENT 


1  EXEC 

DMONITOR  MODULE 

$LISTON   $TTY 

CONSTANT 

RXR 

.= 

2 

TXR 

:  = 

0 

PAR       : 

= 

7 

PORTAD 

:  = 

%FFD9 

PORTBD    : 

= 

%FFE1 

PORTAC 

;  = 

%FFDB 

PCRTBC 

;  = 

%FFE3 

IDPORT 

I  — 

%FFC3 

ICPORT    : 

— 

%FFC9 

TCMD 

2 

FFD2 

TDTA    := 

,FFD0 

BUS  LOCK 

;=%FFF9 

BUS  UNLOCi 

:  : 

=%FFF9 

VINTR     : 

= 

%{ 2)0001000000000000 

VIBIT 

;  = 

12 

ESCAPE 

,= 

%13 

BS 

'  = 

%03 

LINDEL    : 

= 

%7F 

CR 

:  = 

%0D 

LF       : 

= 

%<Z)k 

TXOFCH    : 

= 

%13 

TXONCH    : 

= 

%11 

INSIZ 

;  = 

123        !  INTBUF  SIZE  ! 

OUTSIZ    : 

= 

128        !  OUTBUF  SIZE  I 

RBSIZ 

:  = 

256        !  RING  BUFFER  SIZE 

!  BIT  POSITIC 

)NS 

IN  MONITOR  FLAG  WORD  ! 

TRPMDE 

:  = 

0 

ISTCP 

:  = 

1 

OSTCP 

= 

2 

SNDMDE 

:  = 

3 

LDMDE     : 

= 

4 

ESC 

:  = 

5 

TXMSK 

:  = 

%6 
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COMDS 


:=   11 


TYPS 

SWITCH 

RECORD 

[ 

ECW      WORD 
PC      WORD  ] 

INTERNAL 

$SECTICN  DATA  DEC 

$ABS  0 

0000 

INTBUF 

ARRAY 

"128 

BYTE] 

0080 

0UT3UF 

ARRAY 

"128 

BYTE] 

0100 

RNGBUF 

ARRAY 

^256 

BYTE] 

0200 

MCZBUF 

ARRAY 

]256 

BYTE] 

0300 

BUFADR 

WORD 

0302 

BUFSIZ 

WORD 

0304 

INTPTR 

WORD 

0306 

OUTPTR 

WORD 

0308 

UNIMP 

WORD 

030A 

BRKCNT 

WORD 

030C 

NXTPTR 

WORD 

030E 

GETOUT 

WORD 

0310 

MCZPUT 

WORD 

0312 

MCZGET 

WORD 

0314 

BRKSTR 

WORD 

0316 

BRKADR 

WORD 

0318 

TMPSP 

WORD 

031A 

TMPFCW 

WORD 

031C 


MFLAGS 


WORD 


!  USER  REGISTER  STORAGE  ! 


031E 

R0 

WORD 

0320 

Rl 

WORD 

0322 

R2 

WORD 

0324 

R3 

WORD 

0326 

R4 

WORD 

0328 

R5 

WORD 

032A 

R6 

WORD 

032C 

R? 

WORD 

032E 

R8 

WORD 

0330 

R9 

WORD 

0332 

R10 

WORD 

0334 

Rll 

WORD 

0336 

R12 

WORD 
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0336 
033A 
033C 
0335 
0340 

0342 
0344 
0346 


R13_ 
R14_ 
R15_ 
RPC_ 

REC_ 

RETRY 

ADR_STR 

CMDTBL 


WORD 
WORD 
WORD 
WORD 
WORD 

WORD 
WORD 
ARRAY  [12 


WORD] 


0000 


INTERNAL 

$SECTION    PSA_DATA 

$ABS    0 

PSA         P.ECORD    [ 

DATA_AREA 

C0DE_AR2A 

UN  IMP    INST 

PRIV_INST 

SYSTEM_CALL 

SEG   TRAP 

NMI~INT 

NVI_INT 

VEC_FCW 

VEC   PC 

1       " 


WORD 

WORD 
SWITCH 
SWITCH 
SWITCH 
SWITCH 
SWITCH 
SWITCH 
WORD 
ARRAY    [200      WORD] 


0000 


INTERNAL 

$SECTION    BOOT  DATA 

$ABS    0 

BOOT_COM      RECORD 
TABLE  LOCK 
SIGNAL 
MSG1 


$SECTION    EXEC 
EXTERNAL 

GETLNE 

NMI 

IMPINT 

SNDCHR 

SNDMSG 

MEMINT 

FAIL  SAFE 

CLX_STORE 

MCZHND 

CONINT 

DISPLAY 

GET3UF 

FILL 


WORD 
WORD 
WORD 


_PROC 

PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
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MOVE 

REGISTER 

GO 

BREAK 

JUMP 

NEXT 

QUIT 

SEND 

LOADFL 

GETCHR 


PROCEDURE 

PROCEDURE 

LABEL 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 
PROCEDURE 


0000 


GLOBAL  EROR  LABEL 
GLOBAL  EXEC  LABEL 
GLOBAL  INITL  PROCEDURE 

*     DMONITOR  INITIALIZATION  * 


ENTRY 

ORGADR: 

0000 

F80F 

JR 
PHYS  ID: 

ST  ART P 

0002 

F1F1 

WVAL 
LOGO: 

%F1F1 

0004 

0F 

BVAL 

%0F 

0005 

2A 

BVAL 

0006 

5341 

WVAL 

'SA' 

0008 

5353 

WVAL 

'SS' 

000A 

2044 

WVAL 

'  D' 

000C 

4D4E 

WVAL 

'MO' 

000E 

4E49 

WVAL 

'NI' 

0010 

544F 

WVAL 

'TO' 

0012 

52 

BVAL 

'R' 

0013 

0D 

BVAL 
CMDCHR: 

%0D 

0014 

4446 

WVAL 

'DF' 

0016 

4D52 

WVAL 

'MR' 

0018 

514C 

WVAL 

'OL' 

001A 

4A4E 

WVAL 

'JN' 

001C 

4753 

WVAL 

'GS' 

001E 

4220 

WVAL 

'B  ' 

!  UNIQUE  PEYS  ID  ! 
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!    START    OF    INITIAL    ENTRY    TO    DMONITOR    ! 
START?: 

I  #  #sfc  #######  #######  ########  ########:',:  :(e##5;:s!«s£ 

*      RESET    CODE  AREA    AND   DATA_»REA    REGS      * 

^C  «•,£  «  ^C  7fi  iy.  Z$  V"  >i»  -i-  *P  *\*  -!*  -i-  1*  '•'  »«-  V  '-,*  :  i-  -r  *  i'  *i*  S^SJC  39*35*  '^  "V  "T*  *T*  •5*3t"5*tB  *»*  *»*  *<*  ">*  *•*  I 


0020  7D25 
0022  612E 
0024  0000 
0026  8DE4 
0028  EE02 
002A    210E 

002C    7A00 

002E  340C 
0030  FFCE 
0032  6F2C 
0034    0002 

0036  6F2E 
0038    0000 


!    RESET   DATA  ABEA   AND    CODE   AREA    REGISTERS    ! 
LDCTL  R2,PSAP0FF 

LD  R14fDATA_AREA:.R2) 

TEST 

JR 

LD 

SET_OTHERS: 
LDAR 

LD 
LD 


R14 

NZ,SET_OTHERS 

R14,#%7A00 


R12.0RGADR 

C0DE_AREA(R2) ,R12       !    SAVE    NEW    CODE    ! 


DATA_AREA(R2) ,R14 


!    BASE    ADR    ! 


'*  # 

*  SFTW_INIT:    INITIALIZES    ALL    BASIC  * 

*  DATA   STRUCTURES    FOP.   THE  * 

*  NORMAL    FUNCTIONING    OF  * 

*  DMONITOR.  * 

*  * 


003A 
003C 
003E 
0040 
0042 
0044 
0046 
0048 


76E2 
0300 
A121 
A911 
2103 
0042 
0D25 
0000 


!    CLEAR   DMONITOH    RAM    AREA    ! 
LDA  R2,EUFADR(R14) 


LD 

INC 

LD 

LD 


R1,R2 
Rl,#2 
R3t#66 

0?2,#0 


!    CLR    DMONITOR    RAM    I 


004A    BB21 
004C    0310 


LDIR 


GRlf0R2,R3 


004E  34E7 
0050  0000 
0052  33E7 
0054    0304 


!    LD    FIXED   DATA    IN    RAM    ! 
LDA  R7,P.14(#INT3UF) 


LD 


R14(#INTPTR) ,R7 


45 


0056 

34E? 

LDA 

0058 

0080 

(705  a 

33E7 

LD 

005C 

0306 

005E 

34E3 

LDA 

0060 

0308 

0062 

0D35 

LD 

0064 

0E00 

0066 

34E3 

LDA 

0068 

030A 

006A 

4DE8 

CLR 

006C 

030E 

0062 

4DE8 

CLR 

0070 

030C 

R7,R14(#0UTEUF) 
R14(#CUTPTR) ,R7 
R3,R14(#UNIMP) 
0E3,#%0E00 
R3,R14(#BRKCNT) 

GET0UT(R14) 
NXTPTR(R14) 


*         INITIALIZE   PROGRAM   STATUS    AREA  * 


0072 

7D25 

LDCTL 

R2.PSAP0FE 

0074 

76C4 

LDA 

R4,FAIL_SAFE(R12) 

0076 

0000* 

0078 

A923 

INC 

R2,#4 

007A 

2F24 

LD 

GR2,R4 

007C 

A123 

LD 

R3,R2 

007E 

A931 

INC 

R3,#2      !  FAILSA 

0080 

2104 

LD 

R4,#24 

0082 

0018 

0084 

B321 

LDIR 

0R3.GR2.R4    !  SET 

0086 

0430 

0088 

7D25 

LDCTL 

R2.PSAPCFF 

008A 

2101 

LD 

Rl,#%4000 

008C 

4000 

008E 

3423 

LDA 

R3fR2(#UNIMP_INST) 

0090 

0004 

0092 

76C4 

LDA 

R4,IMPINT(R12) 

0094 

0000* 

0096 

3334 

LD 

R3(#2) ,R4 

0098 

0002 

009A 

8D48 

CLR 
DO 

R4 

009C 

7331 

LD 

R3(R4),R1 

009E 

0400 

00A0 

A  943 

INC 

R4,#4 

00A2 

0B04 

CP 

R4,#28 

00A4 

001C 

00A6 

E601 

JR 

Z,LD  PC 
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00A8 

E8F9 

OD 

LD_PC: 

00  A  A 

3423 

LDi» 

00AC 

0014 

00AE 

76C4 

LDA 

00B0 

0000* 

00B2 

3334 

LD 

00B4 

0002 

00E6 

3423 

LDA 

00E8 

001E 

00BA 

34C2 

LDA 

00BC 

0000* 

00BE 

3332 

LD 

00C0 

0000 

00C2 

34C2 

LDA 

00C4 

0000* 

00C6 

3332 

LD 

00C8 

0004 

00CA 

34C2 

LDA 

00CC 

0000* 

00CE 

3332 

LD 

00D0 

000E 

R3,P2(#NMI_INT)     !  LOAD  MM  I  HDLR  ! 
R4tNMI (R12) 
R3 ( #2 ) ,R4 

!  SET  INTERRUPT  HANDLERS  ! 

R3,R2(#VEC_PC)  !  BASE  OF  INT  VEC! 

R2,R12(#C0NINT)  ICONS  INPUT! 

R3(#0)fR2 


!  MCZ  INPUT  ! 
R2,R12(#MCZHND) 

R3(#4),P2 


!    MEMORY    ACCESS    VIOLATION    ! 
R2,R12(#M2MINT> 

R3(#14)tR2 


*  SET  STACK  POINTER  * 


00D2 

A1EF 

LD 

00D4 

010? 

ADD 

00D6 

05F0 

00D8 

6FEF 

LD 

00DA 

033C 

R15,R14 
P15,#%05F0 

R15JR14)  ,R15 


!    SET   STACK    POINTER    ! 


*      INITIALIZE    COMMAND   JUMP    TABLE  * 


00DC 

34E1 

LDA 

00DE 

0346 

00E0 

34C2 

LDA 

00E2 

0000* 

00E4 

3312 

LD 

!    INIT    COMMAND    JUMP   TABLE    ! 

R1,R14(#CMDT3L)       !    3ASE    ADR    ! 

R2,R12(#DISPLAY) 

R1(#0),R2 


47 


?0E6 

00^0 

30E8 

34C2 

LDA 

?.2fP12(#FILL) 

00EA 

0000* 

00EC 

3312 

LD 

Rl(#2) tR2 

00EE 

0002 

00F0 

34C2 

LDA 

R2,R12(#M0VE) 

00F2 

0000* 

00F4 

3312 

LD 

R1(#4),R2 

00F6 

0004 

00F8 

34C2 

LDA 

R2,R12(#REGISTER) 

00FA 

0000* 

00FC 

3312 

LD 

Rl(#6)  ,R2 

00FE 

0006 

0100 

34C2 

LDA 

R2,R12(#QUIT) 

0102 

0000* 

0104 

3312 

LD 

R1(#8),R2 

0106 

0008 

0108 

34C2 

LDA 

R2,R12(#L0ADFL) 

010A 

0000* 

010C 

3312 

LD 

PI (#10) ,R2  ■ 

010E 

000A 

0110 

34C2 

LDA 

R2,R12(#JUMP) 

0112 

0000* 

0114 

3312 

LD 

Rl(#12) ,R2 

0116 

000C 

0118 

34C2 

LDA 

F2,R12(#NEXT) 

011A 

0000* 

011C 

3312 

LD 

R1(#14),R2 

011E 

000E 

0120 

34C2 

LDA 

R2,R12(#G0) 

0122 

0000* 

0124 

3312 

LD 

Rl(#16) ,R2 

0126 

0010 

0128 

34C2 

LDA 

R2,R12(#SEND) 

012A 

0000* 

012C 

3312 

LD 

Rl(#18) ,R2 

012E 

0012 

0130 

34C2 

LDA 

R2,R12(#BREAK) 

0132 

0000* 

0134 

3312 

LD 

Rl(#20)tR2 

0136 

0014 

! 

DISPLAY 

LOGC  ! 

0138 

3402 

LDAR 

R2tL0G0 

013A 

FEC8 

013C 

34CA 

LDA 

R10,R12(#SNDMSG) 

013E 

0000* 

0140 

1FA0 

CALL 

G>R10 
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{"142 

0144 
0146 
0148 
014A 
014C 
014E 
0150 
0152 
0154 
0156 

0158 
015A 
015C 

015E 
0160 
0162 
0164 
0166 
0166 
016A 


340C 
FEBA 
7D15 
211E 
3401 
FEE4 
93F1 
3151 
031C 
0701 
0006 
33E1 
031C 
7C05 

C82A 
76CA 

0000* 

1FA0 
34CA 
0000* 
1FA0 


016C  3401 
016E  FEA4 
0170  BD2B 
0172  BA14 
0174    0286 


0176 
0178 
017  A 
017C 
017E 
0180 
0182 
0184 
0186 
0188 


EE09 
BD1A 
8321 
E311 
0001 
34E2 
0346 
8121 
2113 
1S38 


1  R12  =  START 
!  R14  =  START 
!    R15    =   STACK 


OF  CODE 
OF  DATA 
POINTER 


AREA    ! 
I 


TO*  »'■*  V*  -J*  "J*  *•'*  -V  "•''  •■'-  ■*■*  *V  ■*■'■*  ■»'■*  «JU  O-*  O*  vi*  »V  *'*  O*  *V  »'-  *'*  *'*  •/■*  0*0.  »•*>  »'*  V*  -■'-*  *■'*  *V  *''  V**  V'  ***  - '-  »'  -  -'  ■ 
-,-•  »-f»  j,»  •  ,-  ■*,«.  *^%  ^fr   *p  »p  *|>  »,4  »,".  *y*  'i1*  ^^  1*  *f*  •if*  *|*  'i*  •<■  *",*  *"0  *V  *f*  *V*  *i*  o  *f*  'i*  *f*  rf*  1*  *i*  "1"  '  *  *l*  *S*  1*  ■■* 

*  BASIC    CONTROL    OF   DMONITOR  * 

EXEC: 
LDAR 

LDCTL 

LD 

LDAR 


PUSH 
LD 

AND 

LD 

EI 

LDB 
LDA 

CALL 
LDA 

CALL 


R12.0RGADR 

Rl  .PSAPOFF 

R14.GR1 

Rl.EXEC 

GR15.H1 

P.1,?.14(#MFLAGS)  !    CLR    MON    FLAGS    ! 

R1,#TXMSK  !    EXCEPT    TX    BIT    ! 

R14(#MFLAG-S)  ,R1 

VI 


R  L  0    #  '  * ' 
R10,'sNDCHR(R12) 

0R10 
R10,R12(#GETLNE) 

0R10 


!    CALR    SUBSTIT    ! 

!    CALR    SUBSTIT    ! 

!    GET    CMD    1ST    CHR    ! 
!    COMMAND   LOOKUP    ROUTINE    ! 

LDAR  Rl.CMDCHR  1    BASS   OF    LKU?   TBLS! 


LDK 
CPIR3 


JH 

LDK 
SUB 
SLL 

LDA 

ADD 

LD 

JP 


R2,#C0MDS  !    TOTAL   #    CMDS     ! 

RL0,3R1,R2,EQ         !    FIND    CMD    ! 


NZ.EROR 
Rl,#COMDS 
R1.R2 
Rl,#l 


-    1 


!    CMD    NOT    FOUND    ! 
!    DETERMINE    INDEX    ! 


R2,R14(#CMDTBL) 


R1,R2 

R3,GR1 

0R3 


GET    CMD    ADR    ! 
GOTO    CMD    HDLR    ! 
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f.i»  s1'  ^.  a*  *x*  kiri  *j«  <4+  *i-  «j-  *.i»  ju  •.'-  «J*  v  »'*  -J*  ■»•■*  V'  -••*  »V  -*1'  -1-  V'  «•'*  >*•'  %V  -'*  J*  *'■*  -•*  V'  Jl»  «•*■*  ■»'-  -'*  •JL-  *•-  «•'*  *'* 
*v~  n*  ^i*  *.*•  *i*  '\-  *e*  *r  *r  *i»  *!*  *v*  *i*  i*  n*  *!*  *v  *»■  J#*  *r  ->  n*  *i*  n*  -i*  *r*  *r  *r  *n  *i*  *i*  ***  i-  n*  nr  *v  '**  *r  *r  *»* 


# 


GLOBAL   ERROR    LABEL 


W 


^Vv^^^TT^TT^T^T^T'rT'f  V*l''^'l*¥'P  *l^  +f*  %/*  3jC  3|6  5p  i|»  3|p  J»€  *|i  .-p  J|i  J,S  >,!     f 


0134  C83F 
018C  34CA 
018E  0000* 
0190  1FA0 
0192  A1EF 
0194  010F 
0196  05F0 
0198  3421 
019A  0080 
019C  33E1 
019E  0306 
01A0    E8D0 

01A2 


EROR: 
LDB 
LDA 

CALL 

LD 

ADD 

LDA 

LD 


JR 


RL0,#'?'  !    DISP    '?'    FOR    ER    ! 

R10.R12USNDCHR)  !    CALR    SUBSTIT    ! 

G>R10 

R15.P14 

R15,#%05F0  !    RESET   STACK    POINTER    ! 

Rl  ,R14(#0UTBUF) 

R14(#0UTPTR) ,R1 

EXEC  !    DELETE   CMD    ! 


END    INITL 

END    EXEC    DMONITOR 


50 


INTERRUPT   MODULE 


Z8000ASM      2.02 
LOC  OBJ    CODE 


STMT    SOURCE    STATEMENT 


1    INTERRUPT   HDLR   MODULE 
$LISTON      $TTY 

I»L.  *t«*JU  «1*  +J*   ■»<*  *JU  ..'»  *JL»  «.'.  «V  *1*  »»*  J*  »J*  »U  «J^  »'.*  *•-•  .'*  *J#  ».'  -V*  »'.»  ^ly  »'»  »•»  v'>  *.»*  x'j  ■-•>  -'*  ..»-..'*  •-1-  »'  -  '•''   >J  -.'*  »' 
.•,»  *f±  Jf*    *t^  ^»  *-,»  »(i  *,»  *,%  >p.  *j»  *,*.  *,%  *^»  *|*  ^p  *p-  ^i*  jp>  ^|»  >|»  *|«  *(%  *•,»  »,»  »,»  -,-  *p  *p  *y*  ^*  *<*  *»■*  *T*  ^*  *l"  *1*  *l*  *»■*  *t* 

*  INTERRUPT   HANDLER    ROUTINES  * 


CONSTANT 

RXR 

;  = 

2 

TXR 

;  = 

0 

PAR 

:  = 

7 

P OR TAD 

:  = 

%FFD9 

PORTBD 

;  = 

%FFE1 

PORTAC 

!  = 

%FFDB 

PORTBC 

:  = 

%FFE3 

IDPORT 

*  ~ 

%FFCB 

ICPORT 

%FFC9 

TCMD         := 

FFD2 

TDTA         := 

%FFD0 

BUS    LOCK 

,=%FFF9 

BUS    UNLCC1 

[    : 

='£FFFe 

V I N  TR 

;  = 

£(2)0001000000000000 

VISIT            i 

,= 

12 

ESCAPE 

\~ 

%1B 

BS 

;  = 

%m 

LINDEL        : 

,= 

%7F 

CR 

;  = 

20D 

LF 

,= 

%0A 

TXOFCH 

:  = 

%13 

TXONCH         : 

;  = 

%11 

INSIZ           : 

,= 

129 

!    INT3UF   SIZE    ! 

OUTSIZ        : 

= 

128 

!    OUTEUF   SIZE    ! 

RBSIZ           ! 

,  = 

256 

!    RING    BUFFER    S 

!    BIT    POSITIC 

)NS 

IN    MONI 

TOR    FLAG    WORD    ! 

TRPMDE 

:  = 

0 

ISTOP           i 

= 

1 

OSTOP 

;  = 

2 

SNDMDE 

= 

3 

SIZE    ! 


ol 


LDMDE 

:=   4 

ESC 

:  =   5 

TXMSK 

:=  %6 

EXTERNAL 

EXEC 

LABEL 

PBUFNC 

LABEL 

CONVW 

PROCEDURE 

PRNTBF 

PROCEDURE 

BPKROU 

LABEL 

NEWLNE 

PROCEDURE 

INTERNAL 

$SECTION  DATA  DEC 

$ABS  0 

0000 

INT3UF 

ARRAY 

"129 

BYTE 

0080 

OUTBUF 

AP.RAY 

'128 

BYTE 

0100 

RNGBUF 

ARRAY 

[256 

EYTE 

0200 

MCZBUF 

ARRAY 

"256 

3YTE 

0300 

BUFADR 

WORD 

0302 

BUFSIZ 

WORD 

0304 

INTPTR 

WORD 

0306 

OUTPTR 

WORD 

0308 

UNIMP 

WORD 

030A 

BRKCNT 

WORD 

030C 

NXTPTR 

WORD 

030E 

GETOUT 

WORD 

0310 

MCZPUT 

WORD 

0312 

MCZGET 

WORD 

0314 

BRKSTR 

WORD 

0316 

BRKADR 

WORD 

0319 

TMPSP 

WORD 

031A 

TMPFCW 

WORD 

>31C 


MFLAGS         WORD 
!    USER   REGISTEP    STORAGE    ! 


031S 

R0 

WORD 

0320 

Rl 

WORD 

0322 

R2 

WORD 

0324 

R3 

WORD 

0326 

R4 

WORD 

0328 

R5 

WORD 
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032A 
032C 
032E 
0330 
0332 
0334 
0336 
0338 
033A 
033C 
033E 
0340 


R6_ 

R7_ 

RB_ 

R9_ 

R10 

Rll 

R12' 

R13 

R14' 

R15 

RPC 

RFC' 


WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 


0342 

0344 


RETRY 
ADR  STR 


WORD 
WORD 


GLOBAL 

$SECTION  INTSRRUPT_P?.OC 

$REL  0 

0000  0C  49   SECMSG  ARP.AY  [*  BYTE]  i~  '%0C ILL  MEM  REI%0D' 

0002  4C  iC 

0004  20  4D 

0006  45  4D 

0008  20  52 

000A  45  46 

000C  0D 

000D  09  42   BRKMSG   ARRAY  [*   BYTE] := '%09BREAK  AT  ' 

000F  52  45 

0011  41  4B 

0013  20  41 

0015  54  20 

0017  05  4E    NMIMSG   ARRAY  [*   BYTE]  :  =  '^05NMI  %0D ' 

0019  4D  49 

0013  20  0D 

001D  09  55    UNK_INT   ARRAY  [*  BYTE]  := '%09UNX  TRAP%0D' 

001F  4E  4B 

0021  20  54 

0023  52  41 

0025  50  0D 
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0028 


ENTRY 

0028 

6FEF 

LD 

002A 

0318 

002C 

31E0 

LD 

002E 

0004 

0030 

6FE0 

LD 

0032 

0340 

0034 

31E0 

LD 

0036 

0006 

ee38 

6EE0 

LD 

003A 

033E 

!    SAVE   Rl 

003C 

76EF 

LDA 

003E 

0320 

0040 

1CF9 

LDM 

0042 

010A 

0044 

61 EF 

LD 

0046 

0313 

0048 

6FED 

LD 

004A 

0338 

004C 

9E08 

RET 

004E 

END    SAVRG 

SAVRG        PROCEDURE 

•V  T> 

*  SAVRG:    SAVES    USER    PROGRAM    STATUS         * 

*  AND   REGS    1-14    CONTENTS.  * 

*»J*-jLr   O,  ^m   »■-  V'  •**  V*  ■■''  «i'»  *■'»  V*  *"*  ""V  *'*  V*  ■»'*  **'  '■'■'  "*-*  *J-  *■'*  ***  *'*  •-'*»'*  «'»  *■'»  V*  «■**  ^'-  %•*  V*  *•**  ***  "■'*  •-1'  *■'*  -'-  I 
*f  *i*  n*  ■»■  *»*  *•*  ***  *!•  *i-  ^•(•n*  -••n6  i-  *^  *r  *i*  ***•  !?*PT  1**1*  '1*1*  *i*'i*  '1**1*  n*  *»*  n*  *>*  *i»n*  *i*n»  t  I 


TMPS?(R14),R15  !    RTN    ADR    ! 

R0,R15(#4)  [SAVE:      ! 


!    USER   FCW    ! 


!    USER   PC    ! 


004E 


RFC_(R14) ,R0 
E0,R15(#6) 

RPC_(R14) ,R0 

R14    ! 

R15tRl_(R14) 

@R15,S1,#11         !    STORE   REGS    ! 
R15,TMPSP(R14)  I    RESTORE    SP    ! 

R13_(R14) ,R13 


GLOBAL 

DMON    ENTRY      PROCEDURE 

*      DMON_ENTRY:    RESTORES    DMONITOR   R12         * 

AND    R14    (CODE    AND   DATA)* 


# 


REGISTERS    FOR    INTERRUPT* 
ENTRIES.  * 


004E 
0050 
0052 
0054 
0056 
0058 
005A 
005C 
005E 


93F1 
93FE 
7D15 
211E 
6FSC 
0336 
311C 
0002 
97F1 


* 
* 

ENTRY 

PUSH  GR15.R1 

PUSH  GR15,R14 

LDCTL  Rl.PSAPOFF  !    GET    PSA    BASE    ! 

LD  R14.GR1  !    RESTORE    DATA    BASE    ! 

LD  R12_(R14) ,R12      !    SAVE  USER   H12    ! 


LD 
POP 


R12,R1(#2) 
Rl  ,G>R15 


!    RESTORE    CODE    BASE    ! 
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0060  6FE1 
0062  033A 
0064  97T1 
0066    9E08 

0068 


0068 


0068 
006A 
006C 
006E 
0070 
0072 
0074 
0076 
0078 
007A 
007C 


007C 


D00E 
33E7 
033C 
33E0 
031E 
D026 
3402 
FF88 
93F2 
E84D 


LD 

POP 

RET 


R14_(R14)  ,R1 
Rl  ,(?R15 


END    DMON_ENTRY 

GLOBAL 

MEMINT      PROCEDURE 

a,  .»- 

*  MEMINT:  INTERRUPT    HANDLER    TC   SIGNAL   * 

*  USSR    OF    ILLEGAL   USER    MODE        * 

*  USE   OF    LOCAL    MEMORY,    AND  * 

*  TERMINATE   USER    PROGRAM    EXE-   * 

*  CUTION    WITH   RETURN    TO    DMON  .    * 

*  * 

ENTRY 

CALR  DMON   ENTRY 

LD  R14(#R1£    ),R15 


LD 

CALR 
LDAR 

PUSH 
JR 

END    MEMINT 


R14(#R0_) ,R0 

SAVRG  !    SAVE    USER    REGS     ! 

R2.SECMSG 


0R15.R2 
ALERT 


!    SAVE    MSG    ADR    ! 


GLOBAL 

IMPINT      PROCEDURE 


007C 

D018 

CALR 

007E 

33EF 

LD 

0080 

033C 

0082 

33E0 

LD 

?084 

031E 

0086 

D030 

CAL? 

*  IMPINT:    NON-IMPLEMENTED    INSTRUCTION 

*  INTERRUPT    HANDLER    USED   TC 

*  TERMINATE   USER    PROGRAM    SXE- 

*  CUTION    AT    A    PRESET    BREAK 

*  POINT.    ALL   USER   REGISTERS 

*  AND   PROGRAM    STATUS    IS    SAVED 

ENTRY 

DMON_ENTRY 
R14(#R15    ),R15 


R14(#R0_) ,R0 

SAVRG  !    SAVE    REGS     I 


*  » 
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0088 
e08A 
008C 
008E 
0090 
0092 
0094 
0096 

0096 
009A 
009C 
009E 
00A0 
00A2 
00A4 
00A6 
00  A  8 
00AA 
00AC 
00AE 
00B0 
0052 
00B4 


6BE1 
033E 
6BE0 
030A 
EE12 
4DE5 
030A 

0001 

7C05 

3402 

FF6F 

DFB0 

31E5 

033E 

34CA 

0000* 

1FA0 

34CA 

0000* 

1FA0 

34CA 

0000* 

1EA8 


00B6    34CA 
00B8    0000* 
00EA    1EA8 

00BC 


DEC 

DEC 

ja 

LD 


EI 
LDAR 

CALE 
LD 

LDA 

CALL 
LDA 

CALL 
LDA 

J? 

SSTP: 
LDA 

JP 

END    IMPINT 


RPCJR14)  ,#2 

BRXCNT(F.li)  ,#1 

NZ.SSTP  !    NO,    EXEC    1    INST    ! 

BRXCNT(R14) ,#%0001 
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R2,BRXMSG         !    LOAD    ADR    3RX    MSG    ! 

SNDMSG 

R5,R14(#RPC_) 

R10,R12(#CONVW) 

(?R10  !    CONVERT    BYTE    ! 

R10,R12(#PRNTBF^ 

0R10  !    OUTPUT   TO    CONS    ! 

R10,Rl2f#EXEC) 


OR10 


!    RETURN    TO    EXEC    ! 


R10,R12(#BRXROU) 
GR10 


!    JUMP    TO   BRX,     ! 
!    ROUTINE    ! 


00BC 


00BC  D038 
00BE  33EF 
00C0  033C 
00C2  33E0 
00C4  031E 
00C6   D050 


GLOBAL 

FAIL_SAFE  PROCEDURE 

*  FAIL_SAFE:    RESTORES    PROGRAM    TO  * 

*  CONTROL    OF    DMONITOR   ON    AN    * 

*  UNXNOWN    INTERRUPT   OR   TRAP   * 

*  SOURCE.  * 

*  RETURNS    TO    TEE   3ASIC    EXEC.  * 

wMg  »'<»!*  -.«-  <lf«b  *'*  »•»  .■*  *JU  -Jl.  >.U*Jt*  ■»'**•*  -<*  -0-  -a*  %;  »»*  <J**Kr  si*  »**  -J*  *'««!«  JU  «JU  *V  ***  *'*  %<*  V*  slf  >fc  <***  **#**■*  *'*    f 

rfk  >l*  »f»  *,»  Jp,  ^«  ff*.  *f*  *,»  J,*  *y.  »-,-  *,»  *(>  *p  rf*  •,«  »,•  r,-  «y*  *,s  *■,»  -^  *>,-  «-j»  «,*  *y»  >,»■  *|-»  'f*  *p>  *,<•  *,-.  ^»  »y»  'P  ■*("*  *P  'I*  'I*  I 

ENTRY 

CALR  DMON_ENTRY 

LD  R14(#R15_),R15 

LD  E14(#R0_),R0 

CALR  SAVRG  !    SAVE    USER    REGS    ! 
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00C8  3402 
00CA   F751 

00CC  93F2 
00CE  E823 
00D0 


LDAR 


R2.UNK    INT 


PUSH  (?R15,R2 

J?  ALERT 

END    FAIL    SAFE 


!    SAVE    MSG    ADR    ! 


00D0 


NMI      PROCEDURE 


V 

NMI    INT:    NON-MASKABLE    INTERRUPT    HDLR* 

# 

IN    RESPONSE    TO    MULTIPLE 

# 

* 

INT    SOURCES.    IF    IN    TRANS- 

a* 

* 

PAR 

EN  T    MODE,    IT    WILL    SEND   THE 

7gL 

* 

ESCAPE    CHAR    TO    MCZ    AND    RESTORE 

•Ai 

* 

THE 

STACK;    IF    EXECUTING    USER 

■A. 
* 

PROGRAM,    IT    WILL   SAVE    PROGRAM 

* 

STATUS    AND    ALL    REGISTERS. 

£«####*: 

1^  *i*  V*  *V  ***  ■»'*  *V  »*'  ****  ■***  * '*  '•*■•  -'■*  *•'*  »V  *■'■*  ■*'"  ***  » >-  v* -  ~'*  ■+'*  «■>  «.i»  - ■ .  ju  V'  *''  ** '  ■■ '  *  * 
******  *i*  *r*v*  *f"r~<*  *r  ***  n^n*  '^n*  *r  *i-  *»*  ******  *r  TrTTTfT  i*  *•»  ^f"  * 

ENTRY 

00D0 

93FC 

PUSH 

(?P.15,R12 

00D2 

93FE 

PUSH 

GR15.R14 

00D4 

93F1 

PUSH 

0B15.R1 

00D6 

7D15 

LDCTL 

Rl ,PSAPOFF 

00D8 

211E 

LD 

R14.3R1            !    LOAD    DATA    AREA 

3ASE    ! 

00D4 

311C 

LD 

P12tRl(#2)    !    LOAD    CODE_AREA 

3ASE    ! 

00DC 

0002 

00DE 

97F1 

POP 

Rl  ,<?R15           !    RESTORE   Rl    ! 

00E0 

67E0 

BIT 

MFLAGS(R14),#TRPMDE 

00E2 

031C 

00E4 

EE0C 

JR 

NZ.TOUIT                   !    YES,    TERMINATE    ! 

;    ; 

EXECUTING    USER    PROGRAM    ! 

00E6 

97FE 

POP 

R14,GR15 

00E8 

97FC 

POP 

R12.GR15 

00EA 

D04F 

CALP. 

DMON_ENTRY 

00EC 

33EF 

LD 

R14(#R15_),R15 

00EE 

033C 

00F0 

33E0 

LD 

R14(#R0_) ,R0 

00F2 

031E 

00F4 

D067 

CALR 

SAVRG                        !    SAVE    PS    AND 

REGS    ! 

00F6 

3402 

LDAE 

R2,NMIMSG           !    LOAD   ALERT 

MSG    ! 

00F8 

FF1D 

00FA 

93F2 

PUSH 

GR15.R2 

00FC 

E80C 

JR 

ALERT 

!    IN    TRANSPARENT    MODE    ! 
TO.UIT: 
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MFLAGS(R14) ,#TRPMDE 

R15.R14 

R15,#%05F0  !    SET    STACK   PTR    ! 

R15_(R14) fR15    !    SET   USER   SP    ! 

RL0,#ESCAPE 

SNDMCZ         !    SEND    ESCAPE    TO    MCZ    ! 
R2.NMIMSG  !    LOAD    ALERT    MSG    ! 

GR15.R2 


(OUTPUT    NMI  ALERT    MSG    AND   RETURN    TO    EXEC     I 

ALERT: 

0116   7C05  EI  VI 

0118    76CA  LDA  R10tNEWLNE(R12) 

011A    0000* 

011C    1FA0  CALL  (?R10 


00EE 

63E0 

RES 

0100 

031C 

0102 

A1EF 

LD 

0104 

010F 

ADD 

0106 

05E0 

0108 

6FEF 

LD 

010A 

033C 

010C 

C813 

LDB 

010E 

DFF1 

CALR 

0110 

3402 

LDAR 

0112 

FF03 

0114 

93F2 

PUSH 

011E  97F2 
0120  DFF1 
0122  A1EF 
0124  010F 
0126  05F0 
0128  34CA 
012A  0000* 
012C  1EA8 
012E 


012E 


POP 
CALR 
LD 
ADD 

LDA 


R2,(aR15 

SNDMSG 

R15.R14 

R15,#%05F0         !    RESET    STACK    POINTER    ! 

R10,R12(#EXEC) 

GR10  I    RETURN    TO   D MONITOR    ! 


JP 
END    NMI 

GLOBAL 

SNDMCZ      PROCEDURE 


*  SNDMCZ:    OUTPUT    CHAR    TO   SERIAL   PORT      * 

*  ONE    (MCZ    SYS)  .  * 

*  * 

*  REG   USE:    INPUT      RL0    =    CHAR  * 

*  RETURN    Z    IF    CHAR    =    CR  * 

*  * 

vl«  ><*  V*  *V  **^  *V  ■***  *'*  W^  ■»'**  "■*'•  •-*•  ■~Lr  »■'■*  V*  »■*  *•*•»  -  '■*  *•**  *  *■*  *■*»  *'"•  •'*  *■'■*  **•*  -''  *■'*  *'*  »'*  ■■''  *>'■■  ■«''  - '"■  -'*  vl*  "■•'  *■**  -*'  *■''  *»**    f 

*^  *I*  *|*   *^%  *fr  rft  rf,  *,»   J^   *|»  *^>  .^  *,»   «^%  ^*  *f+  *■(*   ^|H  ^^  *|*   #,■»  »i»  *^  *t«.  *f»  *fh  *^*   *j*  ?y»  >J»  *^   rf+  *,^  #■[«.  rf|%  ^»  >J*   *(»  *|^  ^>     I 


!    GET    STATUS    ! 

!    TRANSMIT    RDY?    ! 
!    NOT    YET ! 

!    YES,    SND    CHR    ! 


ENTRY 

012E 

3A04 

INB 

RH0, PORTAC 

0130 

FFDB 

0132 

A  600 

BITB 

RH0,#TXR 

0134 

E6FC 

JR 

Z, SNDMCZ 

0136 

3A86 

OUTB 

PORTAD.RL0 

0138 

FFD9 

013A 

0A08 

CPE 

RL0,#CR 

013C 

0D0D 
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0135   9E09  RET 

0140  END    3NDMCZ 

GLOBAL 
0140  SNDMSG      PROCEDURE 

f»**  y*  v*  *&t  *ff  V*  V#  ***  ^*  ***  **•  V*  V*  »'*  •**  >■**  ^V  *'•»  *'*  *V  **•»  V*  V#  ***  V?  *'*  ***  ***  ***  >**  V*  sto  Ms  »'*  ■sV  **■*  *V  *'*  V*  •** 

*  >:• 

*  SNDMSG:    SEND    MSG    SPECIFIED    TO   CONS      * 

*  (P0RT2).    FIRST    BYTE    OF   MSG      * 

*  IS    THE    DECIMAL    LENGTH    IN  * 

*  WORDS  . 

*  REG   USE:    INPUT      R2   =    MSG    4 DDF  * 

ENTRY 

0140    34E1  LDA  Rl  ,R14 (#OUTBUF  ) 

0142    0080 

0144   8D08  CLR  R0 

0146    2028  LDB  RL0f(?R2  !    GET    BYTE    COUNT    ! 

0148    8101  ADD  31, RG 

014A    33E1  LD  R14( #OUTPTR) , Rl 

014C    0306 

014E    A920  INC  R2  !    SETUP    FOR   TRANSFER    ! 

0150    34S1  LDA  R1,R14(#0UTBUF) 

0152    0080 

0154   BA21  LDIRB  9RlfGR2fR0      !    TRANSFER    TO    0UT3UF    ! 

0156   0010 

0158   34CA  LDA  R10 ,R12 (#PBUFNC ) 

015.A    0000* 

015C    1SA8  JP  OR10  !    OUTPUT    TO    CONS    ! 

015E  END    SNDMSG 

GLOBAL 
015E  CONINT      PROCEDURE 

!»'-  «-V  *'■*  ■*'*  V*  *V  \'r  ****'■■  *.**  *t*  »J*  »'•«•  »'**'*  ■-'-•  *'*  v,C  *>*  «i»  «'/X  «.<-  fci*  «•*  .'-  »'<  «.'.»  ««J*  V*  -*■»  »'-  O*  -J>  *Jt*  *A*  %h»  **-  v'rf  *>« 
•rrv  i*  or  "r  or  *i*  tf  or  *i*  i-  or  nr  ?r»  or  *r  or  *.»  a*  or  or  or  or  o*  or  or  or  or  or  or  or  op  *r*  or  or  *r  or  or  or 

*  5? 

*  CONINT:    CONS    (P0RT2)    INPUT    INT    HDLR    * 

*  ROUTINE,    WHICH   GETS    REC    CHR  * 

*  FROM   US  ART.    REC    CHR    IS    CK  * 

*  FOR    TXOFCH  OR    TXONCH,    AND  * 

*  MFLAGS    ADJUSTED   ACCORDINGLY  * 

*  TO    SIGNAL    PROCEDURES.  * 

*  * 

TT'r*(»'i*Ti»'r*rTi*Tf"r  or  *i*  *r'rJi'  'i*  or  or  or  or  or  or  or  o*  or  or  or  «v»  or  or  o*  or  or  or  *c  or  ! 

ENTRY 

015E    93F0  PUSH  (?R15,R0 

0160    93F1  PUSH  GR15.R1 

0162    93F2  PUSH  0R15,R2  !    SAVE   WORK    REGS    ! 

0164    93FE  PUSH  0R15.R14 
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0166 

7D15 

LDCTL 

0168 

211E 

LD 
!  GET  CH 

016A 

3A94 

INB 

016C 

FFE1 

016E 

A297 

RESB 

0170 

67E0 

BIT 

0172 

031C 

0174 

EE18 

JR 

0176 

0A09 

CPB 

0178 

1111 

017A 

EE03 

JR 

017C 

63E2 

RES 

017F 

031C 

0180 

E818 

JR 
AGAIN  : 

0182 

0A09 

CPB 

0184 

1313 

0186 

EE03 

JR 

0188 

65E2 

SET 

018A 

031C 

018C 

E812 

JR 

!  CHECK 
AGAIN2: 

018F 

0A09 

CPB 

0190 

1E1B 

0192 

EE09 

JR 

0194 

67E3 

BIT 

0196 

031C 

0198 

EE03 

JR 

019A 

67E4 

BIT 

019C 

031C 

019E 

E603 

JR 

ESCP: 

01A0 

65  E5 

SET 

01A2 

031C 

01 44 

E806 

JR 

Rl.PSAPOFF      I    DATA_ARSA    ADR    ! 
R14,(3R1 


!    GET    CHAR    AND    CHECK    FOR    TXOFCH    OR    TXONCH    ! 
RL1.PORTBD      !    GET    USART    DATA    ! 


?.L1,#PAR         !    CLR    PARITY    BIT    ! 
MFLAGS(R14) ,#TRPMDE 

!    TRANSPARENT    MODE    ! 
NZ.PUTCHR  !    YES, ! 

RLl,#TXONCH    !  NO,  CK  FOR  TXONCH! 

NZ, AGAIN      !  NO,  .  .  . .! 
MFLAGS(R14) ,#OSTOP   !  RESET  TO,  ! 


FINISH 
RLl,#TXOFCH 


!  RESUME  OUTPUT  ! 


!  CK  FOR  TXOFCH  ! 


01A6  31E0 
01A8  030C 
01AA  DFF8 
01  AC  33E0 
01AE  030C 
01B0  2E29 


NZ,AGAIN2       !  NO ! 

MFLAGS(P.14)  ,#OSTOP   !  STOP  OUTPUT  ! 

FINISH 


RL1,#ESCA?E 

NZ.PUTCHR     !  NO ! 

MFLAGS(R14),#SNDMDE  !  YES,  CK  SND  MDE ! 

NZ,ESCP  !    YES ! 

MFLAGS(R14),#LDMDE    !    NO,    CK    LD   MDE    ! 

Z.PUTCHR  !    NO    ! 

MFLAGS(R14) ,#ESC   !  SET  ESCAPE  BIT  ! 

FINISH 


!  PRIMARY  SAVE  CHARACTER  ROUTINE  I 
PUTCHR: 

LD  R0,R14(#NXTPTR) 

CALR  GETBUF       !  GST  RNGBUF  ADDR  I 

LD  R14(#NXTPTR),R0 


LD3 


(3R2.RL1 


!  PUT  CHR  IN  RNGBUF  ! 
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FINISH: 

01B2 

97FE 

POP 

R14,@R15 

0134 

97F2 

POP 

R2.0R15 

01B6 

97F1 

POP 

R1,GF15 

0138 

97F0 

POP 

R0.GR15 

01BA 

7300 

I  RET 

01BC 

END    CONIMT 

GLOBAL 

013C 

GETBUF 

PROCEDURE 

!    RESTORE    WORK    PEGS    ! 


f*1"  *'('*1'  *'*  V*  V*  »V  "''  »■*%*#  V#  -■'  V*  aA**!*  -  V  *'»  •»•-  ^>*  N*«  «JU  *J*«I*  «J*  «&*  *'■*  »'*  *'*  »1*  *>'*  *'-*  ***  V"  -1*  Vf  »**  -*-  V-  -'-»  -'* 
*|*  ^^*^  *(»  ^p  ^»  ^f^  ^p  »|»  »,»  #•(«•  *.p-  ^*  *■]«  «,*  r^  ^*  #^*  *T^  *j»  *|H  ^i*  •'i*  »j»  rf|»  ^^  r,-»  #t>  *y*  »^»  »,»  ^*  ^t»  *t»  +fr  »i*  *^»  Jj-.  *^  J|% 

«V  I' 

*  GETBUF:    DETERMINES    POSITION    IN  * 

*  RINGBUFFER   TO    PUT    OR    GET  * 

*  NEXT    CHAR.  * 

*  * 

*  REG    USE:    INPUT      R0   =    CURRENT    INDEX      * 

*  RETURN    R0   =    NEW    INDEX  * 

*  R2   =    ADR    OF    RNGBUF      * 


«rT¥¥TV*i*'rvi' 

>v  V1*  *►'■*  *■'■'  ,»'—  ***  **+  V*  **■*  »'»  ■***  ° *  ° -  * 
*i*  ^4  *|^  *y*  *r*  ***  i*  ^»*  *ip  *i*  ■§■  ***  HP  * 

M  %<>  -wA*  «Jl*  «.<*  »'»  *»-  vU  »>*  •«*  «.«-.  bJU  «*•  **-  »U  V*  ***  1 

»*  *r  *t*  'i*  **•■  *T»  ***  *»*  *»■•  *r  *r  *r  *i*  *r*  »r  *»*  -i-    » 

ENTRY 

01BC 

93FD 

PUSH 

GR15.R13 

31EE 

A102 

LD 

R2,R0 

01C0 

A900 

INC 

R0f#l 

!    INC    PTR    ! 

01C2 

0B00 

CP 

R0,#RBSIZ 

!    WRAP    AROUND    ! 

01C4 

0100 

01C6 

EE01 

JR 

NZ,GB 

01C8 

8D08 

CLR 

R0 

!    RESET    INDEX    ! 

01CA 

34ED 

GB:LDA 

R13,R14(#PNGBUF)          !    NEW    ADE 

01CC 

0100 

01CF 

81D2 

ADD 

R2.R13 

01D0 

97FD 

POP 

R13,@R15 

01D2 

9E08 

RET 

01D4 

END   GETBUF 
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01D4 


01D4  93F0 
01D6  93F1 
01D8  93F2 
01DA  93FE 
01DC  7D15 
01DE   2113 


01E0 
01E2 
01E4 
01E6 
01E8 
eiEA. 

01EC 
01EE 
01F0 


3A94 
FED9 
.4.297 
31E0 
0310 
DFF8 
33E0 
0310 
2E29 


01E2  97EE 
01F4  97E2 
01E6  97F1 
01F8  97F0 
01IA  7B00 
01FC 


GLOBAL 
MCZHND 


PROCEDURE 


|    •',  -K*  *>*  s*j  jgj  :';  -*-  «J*  V"J •  **-  ***  ■***  -•-  •>'*  *''  jf-  jj* afcafe  ' 


»  »»»  *JL#  .JU  «J*  JU  «JL»  **£  »•#  O-  *'.  »'*  kfg  ■**«■ 


MCZHND:    MC  Z    (SERIAL    P0RT1 )    INPUT 
INTERRUPT   HANDLER   ROUTINE 
WHICH   GETS    RECEIVED    CHAR 
FROM   US ART,    AND    STORES    IN 
MCZBUF. 


ENTRY 


PUSH 

PUSH 

PUSH 

PUSH 

LDCTL 

LD 


@R15,R0 
@R15,R1 

0R15.R2 

0E15,R14 

R1.PSAP0FF 

R14.GR1 


!    SAVE   WORK    REGS    ! 


!    DATA    AREA   ADR    ! 


!    GET    CHAR   FFOM   MCZ    ! 
INB  RLl.PORTAD 


!    GET    CHR    ! 


RESB 
LD 

CALR 
LD 

LDB 


RL1,#PAR  !    RESET    PARITY    ! 

50,R14(#MCZ?UT) 

GMCZAD  !    GET    MCZBUF    ADR    ! 

R11(#MCZPUT) ,R0 


0R2.RL1 


!    SAVE    CHAR    ! 


!REST0RE   WORK   REGS    ! 

POP  R14,GR15 

POP  R2.QR15 

POP  R1.GR15 

POP  R0,(?R15 
I  RET 

END   MCZHND 
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01FC 


GLOBAL 

GMCZAD      PROCEDURE 

»V"  »'*  -J*  *t«  J*  -.'-  »U  V*  V-  ■»■''  V*  »*-  "*•»  -•'  •.'-  **•  «'*  »'* 


>  »•»  »0  %•.*  »V  »V  *V  V*  »**  ***  *V  "J*  V*  %**  ***  *V  ^**  »'*  *'*  *'»  *** 
•  *|*  «-f*  *f*  *l*  *I*  **f*  *1*  *»*  *l*  *^  *1"  *|*  *I*  *|*  *|*  *!*■  **|**  *t*  1*  *|* 


01FC  93FD 
01FE  A102 
0200  A900 
0202  0B00 
0204  0100 
0206  SE01 
0208    8D08 

020 A  34 ED 
020C  0200 
020E  81D2 
0210  97FD 
0212  9E08 
0214 


*  GMCZAD:    GET    NEXT    ADE    OF    MCZ    BUFFER       * 

*  TO    STORE    OR    GET    CHARACTER.      * 

*  # 

*  PEG    USE:    INPUT      R0   =    PTR    IN    MCZBUF      * 

*  RETURN    R0    =    NEW    PTR    IN    EUF   * 

*  R2   =    BGN    OF    MCZBUF      * 

*  * 

y»  *j»  %i>  *'<»  -j-  ***  vu  -J*  »•*  %/U  *<*  .•«•.*»  j-  o-  v'»  *v  »**^*  **»  o-  *•*  «A#  «***  »**  y*«i*  •<*  «v  +)*  »v  -JU^o^*  J*  ***  %>#  «l,  **■•  »•*   t 
V  *!'•  *«-  *  -  -St"  -V  *i*  - 1*  »c  *r  'f  '.-  *v  *!■****  *■!•  »^  *i*  ^r  *p  "(•  "T»  ***  *if  *i*  n*  *i*  *tm  ^*  HP  *r  n*  *i*  *i*  **•  ***  *t»  A*  *r  *v  I 

ENTRY 


PUSH 
LD 
INC 
CP 

JR 
CLP 
GBZ: 
LDA 

ADD 
POP 
R  ET 
END'  GMCZAD 


@R15,R13 
R2.R0 
R0,#1 
R0,#RBSIZ 

NZ.GBZ 

R0 


!    WRAP    APOUND?     f 


!    RESET    OFFSET    ! 

H13,R14(#MCZBUF)  !    GET    ADR    ! 

R2,R13 
R13.0R15 


END    INTERRUPT    HDLR 
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3.   LOAD  MODULE 


Z800^ASM   2.02 
LOC     OBJ  CODE 


STMT  SOURCE  STATEMENT 


1  LOAD  CMD  MODULE 
$LISTON   $TTY 


LOAD  CMD: 

MCZ  SYSTEM 
PACKET  PAS 
SPECIFY  LO 
USING  MCZ 


CODE  FIL 
TO  EX ECU 


COMMAND  TO  DOWNLOAD  Z8K 
OBJ  CODE  FILE  FROM  RIO/ 
IN  TEXTRONIX  FORMATTED 
SING  PROTOCOL.  USER  CAN 
AD  ADDRESS  INSTEAD  OF 
LOAD  ADDRESS. 

AUTION: 

ES  MUST  BE  RELOCATABLE 

TE  PROPERLY. 


SYNTAX:   LOAD  <FILENAME>  [<ADR>] 


* 

* 


* 


CONSTANT 


RXR 

TXR 

PAR 

PORTAD 

PORTBD 

PORTAC 

PORTBC 


2 

0 

7 

%FFD9 

%FFE1 

%FFDE 

%FFE3 


IDPORT 
ICPORT 


%FFCB 
%FFC9 


TCMD 
TDTA 


%FFD2 
%FFD0 


EUS  LOCK  :=%FFF9 


BUS_UNLOCK 

VINTR 

VIBIT 

ESCAPE 

B  S 

LINDEL 

CR 


=%FFF8 

%( 2)0001000000000000 
12 
%1B 
%08 
%7F 
%0D 
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LF 

:=  %0k 

TXOFCH 

:=  %13 

TXONCH 

:=  %11 

INSIZ 

:=   128 

!  INT3UF  SIZE  ! 

OUTSIZ 

:=   128 

!  OUTBUF  SIZE  ! 

R3SIZ 

:=   256 

!  RING  BUFFER  S 

!  BIT  POSITIONS  I.M  MONITOR  FLAG  WORD  ! 

TRPMDE 

:=   0 

ISTOP 

:=   1 

OSTOP 

:=   2 

SNDMD2    : 

=   3 

LDMPE 

:=   4 

ESC 

=   5 

TXMSK 

'=  %6 

COMDS 

:=   11 

INTERNAL 

$SECTION  DAT/ 

l_DEC 

$ABS  0 

0000 

INTBUF    i 

IRRAY  [128 

BYTE! 

0080 

OUTBUF    .ARRAY  [126 

BYTEl 

0100 

RNGBUF    } 

LRRAY  [256 

BYTE! 

0200 

MCZBUF    / 

,RRAY  [256 

BYTE] 

0300 

BUFADR    WORD 

0302 

BUFSIZ    WORD 

0304 

INTPTR 

WORD 

0306 

OUTPTR   WORD 

0308 

UNIMP     WORD 

030A 

BRKCNT    WORD 

030C 

NXTPTR    WORD 

030E 

GETOUT    WORD 

0310 

MCZPUT    WORD 

0312 

MCZGET    WORD 

0314 

BRKSTR    WORD 

0316 

BPKADR    WORD 

0318 

TMPSP     WORD 

031A 

TMPFCW    WORD 

SIZE    ! 


I31C 


M FLAGS        WORD 
!    USER    REGISTER    STORAGE    ! 


031E 

R0 

WORD 

0320 

Rl 

WORD 

0322 

R2 

WORD 
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0324 

R3 

WORD 

0326 

R4 

WORD 

0328 

P5~" 

WORD 

032A 

R6 

WORD 

032C 

R7 

WORD 

032E 

PS 

WORD 

0330 

R9 

WORD 

0332 

R10 

WORD 

0334 

Rll 

WORD 

0336 

R12 

WORD 

0338 

R13 

WORD 

033A 

H14 

WORD 

033C 

R15 

WORD 

033E 

RPC 

WORD 

0340 

RFC_ 

WOFD 

0342 

RETRY 

WORD 

0344 

ADR  STR 

WORD 

0346 

CMDTBL 

ARRAY [12 

WORD] 

EXTERNAL 

PRNTBF 

PROCEDURE 

EXTERNAL 

GETNXT 

PROCEDURE 

EXTERNAL 

EROR 

LABEL 

EXTERNAL 

SNDCHR 

PROCEDURE 

EXTERNAL 

GETADR 

PROCEDURE 

EXTERNAL 

GMCZAD 

PROCEDURE 

EXTERNAL 

SNDMCZ 

PROCEDURE 

EXTERNAL 

CONVERT 

PROCEDURE 

EXTERNAL 

PBUENC 

LABEL 

EXTERNAL 

SNDMSG 

PROCEDURE 

EXTERNAL 

CONVW 

PROCEDURE 

$SECTION    LOAD_PROC 
$REL    0 


0000 


0000  4DE8 
0002  0312 

0004  4DE8 


GLOBAL 

FNAME  PROCEDURE 

*  FNAME:  RESETS  TWO  PTRS  TO  MCZBUF    * 

*  AND  CHECKS  FOR  FILENAME.     * 

ENTRY 

CLR  MCZGET(R14) 


CLR 


MCZPUT(R14) 


!  RESET  EUFFER  I 
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0006 

0008 
000A 
000C 
000E 
0010 
0012 
0014 
0016 
0018 
001A 
001C 
001E 
0020 
0022 
0024 
0026 


0310 
34CA 

0000* 

1F40 

0A08 

4141 

5711 

0A08 

5B5B 

EF0E 

76CA 

0000* 

1FA0 

E607 

76CA 

0000* 

1FA0 


0028  A13B 
002A  6FE3 
002C  0344 
002E  9E08 


0030  210E 
0032  FFFE 

0034  9E08 


0036 

0038 
003  A 
003C 
003E 


8D98 

34CA 

0000* 

1EA8 


NO 


LDA 

CALL 
C?B 

JR 
CPB 

JR 
LDA 

CALL 

JR 

LDA 

CALL 

LD 
LD 

RET 

ADR: 
"LD 


DUN 


RET 

!: 
CLR 

LDA 


R10,B12(#GETNXT) 

0R10  !  SKI?  CMD  ARG  ! 

RL0,#'A' 

C.DUN 
RL0,#'Z'+1 

NC.DUN  !     1ST    CHR    IN    (A. .Z)     ! 

R10,GETNXTU12) 

OR10  !    SKIP    TO    NEXT    ARG    ! 

ZtNO_ADR  !    NO    NEXT    APG    ! 

R10,GETADR(R12) 

GR10  !    GET   USER   SPECIFIED    ! 

!    ADDRESS    ! 
R11.H3  !    SAVE   USER    ADR    ! 

ADP    STR(P14) ,R3 


R11,#%FFFE         !    SIGNAL   TO    USE    MCZ    ! 
!    ADDPESS     ! 


R9 

R10,R12(#SROR) 


JP 

END    FNAME 


GP.10 


!    ERROR,    RTN    TO    EXEC    ! 
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003E 


003E  67E5 
0040  031C 
0042  E602 
0044  8D41 
0046  9E08 


GLOBAL 

CMDPAS  PROCEDURE 

*  * 

*  CMDPAS:  LOAD  CMD  PASSING  MECHANISM   * 

*  SENDS  'B;  '  PLUS  CONS  CMD     * 

*  LINE  TO  MCZ  AND  CKS  RESPONSES  FOF.    * 

*  GOOD  Z80  PROGRAM  LOAD.  * 

*  * 

*  REG  USE:   RETURN    NZ  IF  Z80  LOADED  * 

*  Z   IF  NOT         * 

*r  *»* 

ENTRY 

BIT       MFLAGS(R14) ,#ESC  !  CK  FOR  ESCAPE  ! 


JR 

SETFLG 

RET 


Z.GCMD 
Z 


0048  C242 
004A  CA3B 
004C  6FE2 
004E  0080 


0050 
0052 
0054 
0056 
0058 
005A 
005C 
005E 
0060 


76E2 
0080 
A921 
76E1 
0000 
2100 
0040 
BB11 
0020 


0062  76E1 
0064  0080 
0066  0101 
0068  0080 
006A  6FE1 
006C  0306 


GCMD: 
LDB 
LDB 
LD 


LDA 

INC 

LDA 

LD 
LDIR 

LDA 
ADD 
LD 


RH2,#'B 
RL2,#';  ' 
OUTBUF(R14) ,R2 


!  LOAD  INIT  'B5  '  ! 


!  FOR  BRIEF  MODE  ! 


R2t0UTBUF(R14) 

R2,#2 
R1,INTBUF(R14) 


R0,#%40 
G>R2,GR1,R0 

Rl t0UTBUF(R14) 
Rl  ,#%80 
0UTPTR(R14),R1 


!  LD  CMD  IN  OUTBUF  ! 


006E 
0070 
0072 
0074 
0076 
0078 
007A 


DFB6 
DFE7 
DFD4 
0A09 
4242 
EE02 
DFEC 


CALR 
CALR 
CALR 
CP3 

JR 
CALR 


OUTSTM 
SKIPLN 
MCZCOM 
RL1,#'B' 

NZ.LDSTAT 
SKIPLN 


!  OUTPUT  BUFFER  ! 
!  SKI?  MCZ  ECHO  ! 
!    WAIT   RESPONSE    ! 


!    SKIP   MCZ    ECHO    ! 
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007C    DFD9 


CALR 


MCZCOM 


!    WAIT    RESPONSE    ! 


!    VERIFY 

LOAD    STATUS     ! 

LDSTAT: 

007E 

0A09 

CPB 

RL1,#'9' 

0080 

3939 

0082 

E60E 

JR 

Z,RECACK 

0084 

0A09 

CPB 

RL1,#'0' 

0086 

3030 

0088 

E60B 

JR 

Z,RFCACK 

708A 

0A09 

CPB 

RL1,#'7' 

008C 

3737 

008E 

E608 

JR 

Z,RECACK 

!    NO    ACKNOWLEDGEMENTS 

ERMSG: 

0090 

DFD9 

CALR 

RECMSG 

0092 

34CA 

LD« 

R10,R12(#S 

0094 

0000* 

0096 

1FA0 

CALL 

OR  10 

0098 

0A08 

CPB 

RL0,#LF 

009A 

0A0A 

009C 

9E06 

RET 

Z 

009E 

E8E8 

JR 

ERMSG 

!    TEST    LEGAL    ! 

!    ACKNOWLEDGEMENTS    ! 

!    RSC    GOOD    ACK    ! 


!    GST    MCZ    MSG    ! 
H) 

!    SEND    TO    CONS    ! 
!    DONE    ! 


00 A 0  8D43 
30A2  9E08 
00A4 


00A4 


!    ACKNOWLEDGE   RECEIVED    ! 
RECACK: 

F.ESFLG        Z 

RET 
END    CMDPAS 


!    RETURN    NZ    ! 


GLOBAL 

SKPE  LABEL 

SKIPLN      PROCEDURE 

*  SKIPLN:    SKI?   RECEIVED    LINE   FROM  * 

*  MCZ;    RETURN    FIRST    CHAR    OF        * 

*  NEXT    LINE.  * 


RL1    =    1ST    CER 
AND    NZ    IF    ESC 


* 

REG 

USE 

:      RETURN 

'f 

ENTRY 

30A4 

DFE3 

CALR 

RECMSG 

00  A  6 

0A08 

CPB 

P.L0,#CR 

00A8 

0D0D 

00AA 

EEFC 

JR 

NZ, SKIPLN 

!    SKIP   OVER    LINE    ! 
!    THRU    CR,LF    ! 
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00AC  2101 
30AE  3000 


0050 
00B2 
00E4 
00E6 
00B8 
00BA 
00BC 

?0be 


61E0 
0312 
4EE0 
0310 
EE03 
AB10 
EEF9 
9E06 


SKPB: 
LD 


Rl  ,#%3000 


!  DELAY  FACTOR  ! 


!  MAIN  LOOP  EOR  RECEIVING  CHAR  ! 
LOOP1: 

R0,MCZGET(R14) 


LD 
CP 

JR 

DEC 
JR 

FET 


R0,MCZPUT(R14 

MZ.RECHR 
Rl,#l 

NZ ,LOOPl 
Z 


!    TEST    FOR   EEC    CHR    ! 

!  YES, ! 

!  NO,  WAIT  AWHILE   ! 

!  FORCED  EOL  ! 


00C0  DFFB 
F0C2  0A09 
00C4  2020 
00C6  9E0D 
00C8  DFF5 
00CA  E8F0 
00CC 


RECHR: 
CALR 
CPB 

RET 
CALR 
JR 
END  SKIPLN 


MCZCOM 

RL1,#'  ' 


PL 

RECMSG 

SKPB 


!  CK  1ST=PRNT  CHR  ! 


00CC 


MCZCOM  PROCEDURE 


00CC 

00CF 
00D0 
00D2 
00D4 
00D6 
00D8 
00DA 
00DC 
00DE 
00E0 


61E0 

0312 

4BE0 

e310 

E6FB 

34CA 

0000* 

1FA0 

2029 

9E08 


*  MCZCOM:  LOOPS  WAITING  FOR  RECEIVE  * 

*  CHAR  FROM  MCZ  BY  SEEING  IF  * 

*  MCZBUF  GETS  CHAR.  DOES  * 

*  ADVANCE  POINTER.  * 

*  # 

*  REG  USE:  RETURN   RL1  =  CHR  * 

ENTRY 

LD       F0,MCZGET(R14)     !  CHECK  MCZBUF  ! 

CP 

JR. 

LDA 

CALL 
LDB 
RET 
END   MCZCOM 


R0,MCZPUT(R14) 


!    POINTERS    ! 


Z,  MCZCOM  !    WAIT ! 

R10,R12(#GMCZAD) 


0P10 
RLlt(aR2 


!    GET    CHAR   FROM    BUF    ! 
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00E0 


RECMSG    PROCEDURE 

»*.'*  -'*«.<*  ,  .»  *JU  «.'»  y-  »<*  y«  y>  *»*  y»  y*.  «v  **■»  *■'*  *V  *■**  *•*  *•••  *'*  ***  ***  *•*  V*  *V  ***  ***  »'*  *'f  ***  *'*  *'*  ">*■*  *ft  V*  •**  *V  **»  *** 
*-j»  «-p  *Y*  *l*  .-I*  *,-  >f»  *p  *{•    *,-  «-,■»  ?|*  J,~  *,"•  *p  »(-  *t*  •"!*  rp  »,»  »r"  T*  T*  *P  *|*  'I*  *T^  *"l"*  "S-*  *>*  *V*  *T*  't*  *S*  *\*  f  1*  "V  1*  ""l* 


00F0 
00F2 
00S4 
00E6 
e0E8 
00  EA 
00EC 
00EF 

00F0 
00F2 
00F4 
00  F6 
00F8 


61F0 

0312 

4EE0 

0310 

E6FB 

34CA 

0000= 

1FA0 

6FE0 

0312 

2028 

9E08 


*  RECMSG:  LOOPS    WAITING    FOR    RSC    CHR        * 

*  FROM    MCZ.    GETS    CHAP    AND  * 

*  DO    NOT    ADVANCE    3UF    ?TR.  * 

*  # 

*  REG    USE:       RETURNS         RL0    =    CHR  * 

1-  'I- 

ENTRY 
LD 

CP 


R0 tMCZGET(R14) 
R0,MCZ?UT(R14) 


!    CK   FOR    REC    ! 


JR 

LDA 

CALL 

LD 

LDB 
RET 
END    RECMSG 


Z.    RECMSG  !    WAIT ! 

R10,R12(#GMCZAD) 

OR  10  !    GET    1ST    CHAR    ! 

MCZGET(F.li)  ,R0         !    RESTORE    PTR    ! 


RL0,GR2 


!    RTN    CHAR    ! 


00F8 


GLOBAL 

OUTSTM  LAEEL 

OUTLNE  PROCEDURE 

}    +y*  *f»JJ»    ^»  «p  *,«  2yC  .»(»  Jp  5jfi  3p  *,"»  *,«■    3,«3f«   *p  *j*   #,»  3,»  *-|»  *|C  *^»  rf*  3fS  5J5  ?p  *p  *y  Tjfr  *,*  *>p  ^|*  »,-«  ^JC  3p  *j>>  »|*  r(>  3p  *JC 


00F8  61E2 
00FA  0306 
00FC  0C25 
00FE    0D0D 

0100  69E0 
0102    0306 


0104   76E1 
0106   0080 


*  OUTLNE:    OUTPUTS    A    LINE   OF    CHAR    FROM    * 

*  OUTBUF    TO    MCZ    WITH    CR    AT  * 

*  END.  * 

a*  Ju 

*  OUTSTM:    OUTPUTS    A    LINE   OF    CHAR    W/CR    * 

y»  y* y*  yu  y*  y *  .**  *»*  y*  «.*»  *ju  «t#  j -  »•*  »»*  »>*  <y#  j*  y*>  »»*  <*»*  y .»  -j^  y*  *»*  y»  »'*  y*  -j-  y*  »•*  y  «  y*  -j*  y *  y .  •.*-  »'*  «.i*  y *   i 
#j»  Jp-  >(*  *y»  *|*  jj«  #(%  *,-  .-p  *-,«  #|*  *,»  *i*  *(»  *,»  »f»  *,s  *,*  ^!<«  .,■»  *, »  j,*.  «y>  -,~  »,»  #j»  *,«  ^(-  *p  >p  ^|»  *^»  *,•»  «|*  j,»  *t5  ^,-  ^p  *,*  ^|»   f 


ENTRY 

LD 

LDB 
INC 


R2,0UTPTR(R14) 

GR2,#CR  JSTORS    CR    IN    BUF    ! 

OUTPTR(R14) ,#1  !    INC    PTR    ! 


!    NO    CR    ENTRY    POINT    ! 
OUTSTM: 

LD&  R1,0UTBUF(R14) 

!    MAIN    LOOP    ! 
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OVRAGN: 

r'108  2019  LDB      3L0,G>R1 

01  0A  A910  INC      Rl 

010C  34CA  LDA       R10  ,R12 ( #S NPMCZ ) 
<?10E  0000* 

0110  1FA0  CALL      @P.10  !  5MD  CHR  TO  MCZ  ! 

0112  E603  JR       Z, FIN  IS 

0114  4BE1  CP       R1,0UTPTR(R14) 
0116  0306 

0118  E7F7  JR        COVRAG-N      !  CK  IF  BUF  EMPTY  ! 

!  FINISHED.  RESET  OUTPTP(R14)  AND  BLANK  0UT3UF  ! 

FINIS: 

011A  76E2  LDA       R2  ,CUT3UF ( R14  )  !  RESET  POINTER  ! 
011C  0780 

011E  6FE2  LD        0UTPTR(P14) , P2 
0120  0306 

0122  2100  LD        R0,#OUTSIZ/2 
0124  0040 

0126  AB00  DEC      R0,#1  !  SET  COUNT  ! 

0128  4DE5  LD        CUTBUFf R14) , # '       '         !  LOAD  COUNT  ! 
012A  0080 
012C  2020 

012E  76F2  LD«       R2  .OUTBUF ( R14 ) 
0130  0080 

0132  A121  LD       R1.R2 

0134  A911  INC       Rl,#2 

0136  BE21  LDIR      GP1,0R2,R0     !  CLE  BUFFER  ! 
0138  0010 

013*  9E08  RET 
013C        END  OUTLNE 
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ABOFTM        LABEL 
GODPAK         LABEL 
013C  BADPAK         PROCEDURE 

*.*.  «** 

*  BATPAK:    SENDS    RESEND    SIGNAL    ( '7 ' )         * 

*  TO    MCZ    FOR    BAD    CKSUM    OR    REC    * 

*  NON-ASCII    CHR.  * 

i*  *.* 

*  ftBORTM:    SENDS    ABORT    SIGNAL    ('9')  * 

*  WHEN    USER    SELECTED.  * 

■j*  a* 

n*  *.- 

*  GODPAK:    SENDS    ACS    SIGNAL    ('0')    FOR      * 

*  RECEIPT   OF   GOOD    PACKET.  * 

j*  .1, 

i»  -I- 

ENTRY 
013C    C837  LDB  RL0,#'7'  !    LD   RESEND    SIG    ! 

013E    ES03  J?  OUTALL 

ABORTM: 
0140    C839  LDB  RL0,*'9'  !    LD   ABORT    SIG    ! 

0142    F801  JP  OUTALL 

GODPAK: 
0144    C930  LDB  RL0,#'0'  !    LD   REC    OK    SIG    ! 

OUTALL: 
0146    6EE8  LDB  OUTEUF (R14) , RL0 

0148    0030 

014*    76ED  LDA  R13, OUTBUF( R14 ) 

014C    0080 

014E    A9D0  INC  R13,#l 

^150    6FED  LD  OUTPTR ( R14) , R13 

0152    0306 

0154    D02F  CALR  OUTLNE  !    SEND    MCZ    SYSTEM    ! 

0156   D05A  CALR  SKIPLN  !    SKI?    ECHO    ! 

0158    9E08  RET 

015A  END    BADPAK 
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015A 


GLOEAL 
GETACK 


PROCEDURE 


I  *|»  5,»3p  ..,»  ..,-.  3(»  5,»  3,«  *^»  3|v  ^,*  5[»  *^*  *,C  ^,-»  5,.  *•,*  JjC  ?JS  *^>.  ?^I  *,.  ^.  *,»  »■,-»  *,»  .•,«  *,»  *j»  .•,»  *,»  *,«•  -,■»  *,s  ^*  •>,«.  rfi  #■,•«  « 


GETACK:    RECEIVE   AND    INTERPRET    ACK 
FPOM    MCZ.    GOOD    ACK    =    '<2' 
BAD 


ACK   =    '7' 
ABORT  =    '9' 


REG   USE:       RETURN      Z,NC    IF    GOOD    ACK 

NZ,NC    IF    BAD    ACK 
NZ,C    IF    ABORT 


-■•?■ 

•a* 


ENTRY 

!  GET    CHR    ! 

!  CK    FOR    ACK    ! 

!  NO ! 

!  YES,    REC    ACK    ! 


NON-ACKNOWLEDGEMENTS  ! 
!  CK  FOR  RESEND  ! 
!    NO ! 


01 5  A 

D048 

CALR 

MCZCOM 

015C 

0A09 

CPB 

RL1,#'0 

r'15E 

3030 

0160 

EE04 

JR 

NZ.NACK 

0162 

D060 

CALR 

SKIPLN 

0164 

3D41 

SETFLG 

Z 

0166 

SD83 

RESFLG 

C 

016° 

9E08 

RET 

!    CK    FOP.    '7 

'    AND    '9 

NACK: 

016A 

0A09 

CPB 

RL1,#'7 

016C 

3737 

016E 

EE04 

JP 

MZ,  ABET 

0170 

E067 

CALR 

SKIPLN 

0172 

8D43 

RESFLG 

Z 

0174 

8D83 

RESFLG 

c 

9176 

9E08 

RET 

0178  0A09 
017A  3939 
017C  E602 
017E  D050 
0180    E8EC 


!    CHECK   FOP    ABORT    ! 
ABRT: 


CPB 

JR 
CALR 

JR 


RL1,#'9' 


Z.ENDIT 

RECMSG 

GETACK 


!    YES,    .ABORT...     ! 
!    GET    ANOTHER    CHR    ! 
!    TRY    AGAIN ! 


0182  D070 
0184  8D43 
0186  8D81 
0188  9E08 
018  A. 


ENDIT: 
CALR 
RESFLG 
SETFLG 

END   GETACK 


SKIPLN 

Z 

C 
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318A 


LINRCT    PROCEDURE 

!*A*  V*  *'■*  •■  •  *''  *-: ■  -'*  V*  -'*  *V  *■'*  ***  ***  V'  *•**  *'■*  »'*  •***  ■*'*  V*  *■'■*  V'  *'*  *'*  *'*■  *'*  "■'"  •*  *  V'  *'*  "> ■'  -''  ••'*  ■*'*  »'•*  *'*  •>'*  V*  »'*  ■*"- 
»j»  ^*  *|»  ^,*  »,«.  *\*  ^»  #|»  *^*  «|%  »^  *^*  *tf%  J,-«  /,»  *^  ^-»  *!»  *,»  ^|»  r,«  J|>a  ^|»  *|»  *^»  *f>  .-,<.  »,-»  ^f»  *|»  ^^  -,-  •  ,-»  >,■»  *,".  i.,-.  .«■,■-  «-,>  >,-  *,* 


* 


LINP.CT:  RECEIVES  LINE  OF  CHAR  FROM  * 
MCZ  AFTER  RECEIPT  OF  '/',  * 
AND  STORES  IN  INTBUF,  ADDING* 
CR  AT  END  AND  FILTERING  OUT  * 
CONTROL  CHARACTERS.  (<20H)  * 
(TPUNC*TES    AFTER    80    CHAR)         * 


018A  D056 
018C  0A08 
018E  2F2F 
0190    EEFC 

0192  76F4 
0194  0000 
0196    CB50 


0198 
019A 
019C 
019E 
01A0 
01A2 
01.fl4 


D05D 
2E48 
0A09 
0D0D 
EE02 
D07C 
9E08 


>'*  *•*  -JU  -' »  O-  «.'.•  J»  «J*  >JU  ■  •■*  <J-*  -'*  v*  - '-  -.'*  «.'*  <J*  v'*.  v  *-■*  -'*  V*  «■*■•  V*  »**  ■>'*  V*  V'  V1-  ***  ***  ■*■'*  "■'*  »■'■"  *J«»  **•*  *'*  »'»  -'-  »**  I 
f*  **-*i*  -i»^  •**  *»•*  '(*  »»*  »r*  *r  Yr  *i»»i*  »i*Jpif^ir  -,-»^*Sf.  ?,»  ^»  *i*'i*  #i»  ^s  «y»  i*  *i-  *r>  *i*  *»*  n*  *r  •v  *r*  *r  I 

ENTRY 

!    WAIT   FOR  ASCII    /    ! 

CALR  RECMSG 

CPB  RL0,#V 

JR  NZ, LINRCT  !    WAIT    ! 

!    BEGIN    STORING    CHARACTERS    ! 
LDA  R4,INTBUF(R14) 


LDB  U3,#80 

!    STORE   CHAR    IN    INTBUF    ! 
LOPSTR: 


CALP. 

LDB 

CPB 

JR 
CALR 

RET 


RECMSG 

0R4,RL0 

RL0,#CR 

NZ,SXPSOM 
SKPB 


!SET    LINE    LENGTH    ! 


!    GET    CHAR    ! 

!    STORE    ! 

!    CK    FOR    END    ! 

!    GOT    CHAR. .     ! 


^1A6 
01A8 
01 A  A 
01AC 
01AE 


0408 
2020 
E7F6 
«940 
FE0C 


ICONTROL    CHAR    FILTERED    AND    DEC    LINE    COUNTER     ! 
SKPSOM: 

CPB  RL0,#'    ' 


JR 
INC 

DBJNZ 


C, LOPSTR 
EL3, LOPSTR 


!    GOOD    CHAR    ! 
!    DEC    COUNT    ! 


01E0 
01 B2 
01B4 
01B6 
01B8 
01BA 
01BC 
01BE 
01C0 


D069 
0A08 
0D0D 
EEFC 
76ED 
0000 
010D 
0050 
2ED8 


ITRUNCATE,  TOO    MANY    CHAR    ! 
LOPOVR: 

CALR  RECMSG 

CPB  RL0,#CR  !    LOOK    FOR    CR    ! 


JR 
LDA 

ADD 

LDB 


NZ,LOPOVP 
R13,INTBUF(R14) 

R13,#80 

0R13,RL0 
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A1C2  9E08 
01C4 

?1C4 


01C4  A02C 

01C6  DFDF 


RET 
END  'LINRCT 

UNPACK  PROCEDURE 

*  * 

*  UNPACK:  UNPACKS  RECEIVED  PACKETS     * 

*  PROM  MCZ  IN  INTEUF  AND  * 

*  LOADS  IN  SPECIFIED  MEMORY    * 

*  AREA.  ASCII  CHAR  ARE  CON-    * 

*  VERTED  TO  HEX  VALUES.  * 

*  REG  USE:  INPUT   RH3  =  #BYTE  DATA    * 

ENTRY 

LDB  RL4.RH3        !  SAVE  COUNT  ! 

CALR  CONVAD         !  CONV  START  ADR  ! 


01C8  0B0B 
01CA  FFFE 
01CC  F601 
01CE  A1B1 


!  CHECK  FOR  USER  ENTERED  ADDR  FOR  LOAD  ! 


CP 

JR 
LD 


R11,#%FFFE 

Z,USE_MCZADR 

R1,R11        !  USER  SPECIFIED  ! 


01D0  76F2 
01D2  0000 
01D4  A927 


01D6  DFF8 
01D8  2E18 
01DA  *910 
01DC  FC04 


USE   MCZADR 
L"DA 

INC 

CANDS: 
CALR 
LDB 

INC 
DEJNZ 


R2,INTBUF(R14) 

R2,#8 


TRNHEX 
9R1.RL0 
Rl,#l 
RL4, CANDS 


!  CONVERT  2-ASCII  CHR  ! 
!  STORE  IN  MEM  ! 

!  CONV  AND  STORE  ALL  ! 


01DE  0E0B 
01E0  FFFE 
01E2  E601 
01E4  A11B 


!  UPDATE  USER  SPECIFIED  ADDRESS  ! 


CP 

JR 

LD 


R11,#%FFFE 

Z,NO_UPDATE         !    USE    MCZ    ADR    ! 
R11,R1  !    UPDATE   USER    ADR    ! 


01F6  9F08 
01E8 


NO_UPDATE: 
RET 

END  UNPACK 
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01E8 


TRNHEX    PROCEDURE 


* 
* 


TRNHEX:  CONVERTS  TWO  ASCII  CHAR  FRM  * 
INTBUF  TO  TWO  4-BIT  HEX  #  * 
AND    ADD    TO    CKSUM.  * 

1» 

REG-    USE:    INPUT      R2    =    PTR    TO    1ST    CHR    * 

RL3=    CKSUM   ACCUM  * 

RETURN    R2    =    UPDATE    PTR  * 

RL3=    UPDATED    ACCUM      * 

RL0=    HEX    VALUE  * 

AMD    C    I?    NON-ASCII      * 

NC    I?    ALL    GOOD        * 

v 


ENTRY 

013S    DFF6  CALR 

01EA    9E07  RET 

01EC    B08B  ADDB 

01EE   E309  SLA 
01F0    000C 

^1F2    DEFB  CALR 

01E4   9E07  RET 

01F6   309B  ADD3 

01F8   8408  ORB 

01FA    8D83  RESFLG 

01FC    9E08  RET 
01FF                  END    TRNHEX 


ATOHEX 
C 

?L3,RL0 
R0,#12 

ATOHEX 

C 

RL3,RL0 

RL0.RH0 

C 


!    CONVERT    1ST    CHR    ! 

!    ADD    TO   CKSUM    ! 

!    MOVE   TO    H    NIBBLE    ! 

!    CONVERT    2ND    CHR    ! 


!    COMBINE    NIBBLES    ! 


01FE 


01FE  2028 
0200  A920 
0202  34CA 
0204  0000* 
0206  1FA0 
0208  9E08 
020A 


ATOHEX   PROCEDURE 

!■»'»  ••">  *i*  «J«  -*»  ».c  -JLr   «'*  *«*  <j.   .ju  *•*■  fct*  «.t#  «i^  -',  OU  V'  »**  -'*  V-*  »'*  ***  *V  »'*  ^V  *■'■*  *■'■•  V*  **V  *•'■*  v^  «J*  -Jv  Vi»  *»•■»  *>*»  "■*-  **•*  •■'* 
*p  *^  »|»  *t»  #^»  *,*  -i*i  ^|«  *p  *■)*  J^  *^  *!*  *!*  «^  «y»  *y»  •*!»  -t*  *y»  ?ft  *tf»  *|%  »,^  .-,-<  ^*  *^»  »,»  S^*  .-f»  i»  .-,*  ^j*  ^j*  ^S  *f*  *|*  *»*  *l*  1" 

#  # 

*  ATOHEX:    CONVERTS    ONE    ASCII    CHAR  TO      * 

*  4-BIT    HEX    NIBBLE.  * 

*  # 

*  REG   USE:    INPUT      R2   =    PTR    TO    CHR  * 

*  RETURN    R2   =    PTR    +    1  * 

*  RL0=    HEX    NIBBLE  * 

*  * 

ENTRY 

LDB  RL0.GR2 

INC                R2,#l                        !    INC    PTR  ! 

LDA  R10,R12(#CONVERT) 


CALL 
RET 
END    ATOHEX 


0R10 
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020A 


020A 

020C 
020E 
0210 
0212 
0214 
0216 
021S 


76E2 
0000 
D014 
A081 
D016 
A089 
9E08 


CONVAD  PROCEDURE 

««JU  »'*  «r*-  O*  «.'■»  •.**  *■'••  **■»  -'■-  *"-*  «^  V'  V-*  ■"''•,'-'  V'  *'i»  *■'*  *•'"■  "'*  »''  ***  **■*  -1'  «■•*  *•'*  ***  "'-  "•'■•  »'*  *V  *'*  "l1"*  *-''  •*J-'  »'■*  *■'"  V-  »'•  «■'* 

'  *  * 

*  CONVAD:  CONVERTS  STARTING  ADDRESS  * 

*  OF  PACKET  DATA  TO  HEX  #.  * 
ft  ft 

*  REG  USE:  RETURN    Rl  =  ADDRESS (HEX )  * 
ft  # 

ENTRY 

LDA        R2,INTBUE(R14) 


CALK 
LDB 
CALR 
LDB 
RET 
END  CONVAD 


TRNHEX 
RH1.RL0 
TRNHEX 
RL1.RL0 


!  STORE  1ST  BYTE  ! 
!  STORE  2ND  BYTE  ! 


0218 


CHKPAK    PROCEDURE 

f  ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 
ft  ft 

*  CHKPAK:  CK  RECEIVED  MCZ  PAC  CKSUM    * 

*  AGAINST  ACCUMULATED  HEX      * 

*  VALUE  CKSUM  AFTER  ASCII-TO-  * 

*  HEX  CONVERSION.  * 

*  REG  USE:   RETURN   RH3  =  BYTE  COUNT   * 

*  AND  C  IE  BAD  OR    * 

*  NON-ASCII.         * 
ft  ft 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft  j 

ENTRY 


!  CK  1ST  CKSUM  ! 

!  BAD  CK  ! 

!  NO  DATA  ! 

!  SAVE  BYTE  COUNT  ! 

!  CK  2ND  CKSUM  ! 


0218 

76E2 

LDA 

R2,INT 

021A 

0000 

021C 

C303 

LDB 

RH3,#3 

02  IE 

DFE9 

CALR 

CHKSUM 

0220 

9E07 

RET 

C 

0222 

8C34 

TESTB 

RH3 

0224 

9E06 

RET 

Z 

0226 

93E3 

PUSH 

(*R15,R3 

0228 

DFEE 

CALR 

CHKSUM 

022A 

97E3 

POP 

R3.0R15 

022C 

9E08 

RET 

022E 

END  CHKPAK 
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022E 


022E 
0230 
0232 
0234 
0236 
0238 
023  A 
023C 
023E 
0240 
0242 
0244 
0246 
0248 


8CB8 
D025 
9E07 
E303 
A083 
93F3 
D02A 
97^3 
9E07 
8AB8 
9E06 
8D81 
9E08 


CONVERTS    ALL   PEC    ASCII    CHE 
IM    ?AC    TO    HEX    ANT    AC  CUM    NEW 
CKSUM.    COMPARE    CKSUMS    AND 
REPORT    DIFFERENCES. 


REG    USE:    INPUT 


RETURN 


R2   =    PTR    TO    PAC 
FH3=    #    CHR    PAIRS 
RH3=    BYTE    COUNT 
RL3=    NEW    CKSUM 
RH3=   REC    CKSUM 
AND    C    IF    BAD    OR 
NON-ASCII    EEC 


CHKSUM        PROCEDURE 

I    Um  «JU *JU  «l*  «!••  %'*  -Ju  V*  •'»  "*V  V*  »1-'  **»  *'»  ***  "■'"  *'*  *■''  **r  »'*  *■'*■  *'■*  *'■*  *'*  ****  V'  *■'■»  »''  -**  •"*'  V'  »'■»  -'*  **•  *-'*  *-l-»  V*  »'*  »*>  »'* 
*t»  *r**r  *p  *i>  *i*  *r-  *r  -v»*r  ^i*  »i*  *i*  *i*n*  ?t**t»  *v**^  *r*  -i-»*i*  *r  *i*  •¥*  *c  * n  *r  »i*  *i*  ?i*  *i**iwr*  *t*  *r  n*  *i**»*  *i- 

*      CHKSUM: 

* 

ENTRY 

CLRB  RL3 

AB:CALR  TRNHEX 

RET  C 

DBJNZ  RH3.AB 

LDB  RH3,RL0 

PUSH  0F15.R3 

CALR  TRNHEX 

POP  R3f0R15 

RET  C 

CPB  RL0,RL3 

RET  Z 

SETFLG  C 

RET 
END    CHKSUM 


* 

:###*#  *##:;:###*########:£  ###*###*  J 


!    FESET    CKSUM    ! 
!    CONVERT    PAIRS     ! 


!    CONTINUE 


!    SAVE    BYTE    CNT    ! 

!    CONVERT    NEXT    TWO    ! 


!    COMPARE    CKSUMS    ! 
!    GOOD    CK. . .     ! 
!    BAD    CKSUM    ! 


79 


0248 


GLOBAL 

LOADFL    PROCEDURE 

!y -  *l*  <ju  *Jy  y r  S'^  •*£  «J*  V*  ><*  V*  *■'*  *■**  *'*  ^*  V*  V*  ***  ***  V*  W  ***  "V  Vtf  *P"  ***  V"  ***  *te  V*  *V  *fe  V*  V*  V*  *!tf  *"■*  "fe  ***  V* 
*t^  *!•  -Y-  *T"  *i»  *f»  1*  *p  Hf*  *."*  *l*  *V*  ^*  *>*  O*  m*  *¥*  *<*  **"*  *l*  *l*  *f*  It*  *»  **  ""*•  **  *»*  ^^  fl*  *1^  ^^  *»*  *P  ^*  "^H  *V*  *|*  *l*  *?* 

#  * 

*  LCADFL:    RECEIVES    PACKET    FROM    MCZ    IN    * 
FOLLOWING    FORMAT:  * 

<ADRXCNTXCKS1XDTAX  .  .<DTAXCKS2>   * 

ADR   =    START    ASR    IN    Z8000    MEM  * 

CNT    =   #    DATA    WORDS  * 

CKS1  =    CKSUM   OF   <ADR>    +    <CNT> 
<DTA>.. .<DTA>    =    30   DATA   WORDS 
CKS2  =   CKSUM   OF   DATA   HEX   VALUES 


# 

.A. 

* 


PROCEDURE    VERIFIES    CKSUMS    BEFORE 
STORING    DAT*    IN    Z8000   MEM.    PACKETS 
ARE   ACK    FOR   WITH:     '0'    =   GOOD 


'7'    =    RESEND 


'9'    =   ABORT 
IF    REC    '//'    FROM    MCZ,    ECHOS    WHAT 
REC    NEXT    TO    CONSOLE   AND   ABORT. 


* 


##3}: ###-:# 3$: ##>,*# ## # ######*## sjs# #### >}:*« *«***#  I 


?243  D125 
024A  65E4 
024C    031C 

024E  D109 
0250    9E06 


0252 
0254 
^256 
0258 
025A 
P25C 
025E 
0260 
0262 
0264 
0266 
F268 
026A 
026C 
026F 
0270 
0272 


D065 
76F2 

0000 

2028 

0A08 
2F2F 
FE10 
76E1 
0080 
2103 
0020 
BB21 
0310 
76E1 
0080 
0101 
0020 


ENTRY 
CALR 
SET 


CALR 
RET 
RECLOP: 
CALR 
LDA 

LDB 
CPE 

JR 
LDA 

LD 

LDIR 

LDA 

ADD 


FNAME  !    CK   FILENAME    ! 

MFLAGS(R14) ,#LDMDE    ISIGNAL    LOAD    IN    ! 


CMDPAS 
Z 


!  PROGRESS ! 
!    SND    CMD   TO    MCZ    ! 
!    Z80    PROG    NO   LOAD    ! 


LINRCT  !    GET    PACKET    ! 

R2,INTBUF(R14) 


RL0.GR2 
RL0,#V 


!    CK    FOR    '//'    ! 


NZ.CONTIN  !NO,    CONTINUE...! 

Rl  ,OUTBUF(R14)  !YES,! 

R3,#%20 

GR1.9R2.R3         IERROR    MSG    SETUP    ! 

Rl ,OUTBUF(R14) 

Rl,#%20 


80 


0274  6FF1 
0276  0306 

0279  34CA 
027A  0000* 
027C  1FA0 
027E  9E09 


0280  67-25 
0282  031C 
0294  EE34 
0286  D038 
0298  EF02 
028 A  D0A8 
028C  E8E2 


028E  8CB8 
?290  8138 


0292 
0294 
0296 
0298 
029  A 
029C 
029E 
02A0 
02A2 


8C34 
EE28 
D0AA 
54E0 
0000 
76ED 
008^ 
010D 
000C 


02A4  0E09 
02 A 6  A  AAA 
02 A8  E61D 
02AA  0E0B 
02AC  FFFE 
02  A E  E608 
02E0  6FED 
02B2  0306 
0254  61E5 
02B6  0344 
02B8  76CA 
02BA  0000* 
02BC  1FA0 

02BE  E801 


LD 


LDA 

CALL 

RET 

CONTIN: 

BIT 

JR 

CALR 
J?. 

C«LF. 
JR 

!  CHECK  FOR 
GDLD  : 

CLRB 
ADD 


TEST3 
JR 

CALR 
LDL 

LDA 
ADD 


!  CHECK  FOR 
CP 

JR 
CP 

JR 
LD 

LD 

LDA 

CALL 

JR 
SAME  ADR: 


0UTPTR(R14) fRl  !SET  OUTPTR  ! 

R10,R12(#P3UFNC ) 

OF  10 

MFLAGS(R14),#3SC    !  CK  FOP  A30RT  f 


NZ,ABT 

CEKPAK 

NC,GDLD 

BADPAK 

RECLOP 


!    YES,    A30RT. . .! 
CK    CKSUMS    ! 
GOOD    LOAD    ! 
SEND    NON-ACK    ! 
TRY    AGAIN    ! 


LAST    PACKET    AND    PRINT    <ENT    ADR>    ! 


RL3 
R8.R3 


!  ACCUM  NUMBER  BYTES  ! 
!  OF  TRANSFER  ! 


RH3  !  CK  COUNT =0  ! 

NZ,STOR        !  OK,  BEGIN  STF.  ! 

GODPAK         !  SEND  GOOD  ACK  ! 
RR0,INTBUF(R14) 

R13,OUTEUF(R14) 

?.13,#%0C 

USER  SPECIFIED  ADDR  ! 
R9,#%AAAA 

Z,END_LOAD         !    NO    ECHO    TO    CONS    ! 
Rllt#%FFFS         !    CK    FOR  LOAD   ADR    ! 

Z,SAME_ADR  !    USE   MCZ    ADR    ! 

OUTPTR fRl 4 ),R13       !    SET   OUTBUF    ADR    ! 

R5,ADR_STR(R14)    !    GST  USER    ADR    ! 

R10,CONVW(R12) 

0P.10 


!    CONVERT    TO    ASCII    AND    { 
!    AND    STORE    IN    OUTBUF    ! 


FIN    BUF 
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02C0 

1DB0 

LDL 
FIN  EUF: 

0R13.RR0 

02C2 

3402 

LDA? 

P2. ENTADR     !LOAD  ENTRY  LABEL! 

02C4 

0040 

02C6 

76E1 

LDA 

R1,0UTBUF(R14) 

02C8 

0080 

02CA 

2100 

LD 

R0,#6 

02CC 

0006 

02CE 

BB21 

LDIR 

0R1,3R2,R0 

02D0 

0010 

02E2 

76ED 

LDA 

R13f0UTBUF(R14) 

02D4 

0080 

02D6 

010D 

ADD 

R13,#%10 

02D8 

0010 

02DA 

6FED 

LD 

OUTPTR(R14) ,R13 

02DC 

0306 

02EE 

34CA 

LDA 

R10,R12(#PRNTBF) 

02E0 

0000* 

02E2 

1FA0 

CALL 

END  LOAD 

• 

OR 10          !  PRINT  MESSAGE  ! 

02E4 

9E08 

RET 
STOR: 

02E6 

D06F 

CALR 

CONVAD 

02E8 

D0D3 

CALR 

GODPAK        !  SEND  ACS  ! 

02EA 

D094 

CALR 

UNPACK        !  UNPACK  AND  STORE  ! 

02EC 

E8B2 

JR 

«BT: 

RECLOP        !  CONTINUE ! 

02EE 

3402 

LDAR 

R2.EMSG 

02E0 

000A 

02E2 

34CA 

LDA 

R10,R12(#SNDMSG) 

02F4 

0000* 

02F6 

1FA0 

CALL 

GR10           !  SEND  MESSAGE  ! 

02F8 

D0DD 

CALR 

ABORTM         !  SEND  ABORT  ! 

02FA 

9E08 

RET 

02FC 

END  LOADFL 

EMSG: 

02FC 

07 

BVAL 

7 

02FE 

2F41 

WVAL 

V; 

e 

0300 

424F 

WV«L 

'BC 

)' 

0302 

5254 

WVAL 

'Rl 

> ' 

0304 

0D 

BVAL 
ENTADR: 

%0I 

) 

0306 

454E 

WVAL 

'Eh 

1' 

0308 

5452 

WVAL 

'TE 

{' 

030A 

5920 

WVAL 

'Y 

* 
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F30C 

504F 

WVAL 

'PC 

030E 

494E 

WVAL 

'IN' 

0310 

5420 

WVAL 

'T  ' 

END    LO^D    CMD 


83 


REGISTER  MODULE 


Z8000ASM   2.02 

LOC     03J  CODE     STMT  S 

1  REGIST 
$LISTON  $tty 

J  s}:  #  £  #  #  $  #  #  $  #  s{:  ## 

'* 

* 

REGISTER  C 

* 

EACH  REG 

* 

SUBSTITU 

# 
* 

session; 

THROUGH 

* 
* 

changes; 

WILL  ALT 

* 
* 

SYNTAX:   R 

SOURCE    STATEMENT 
SR_CMD    MODULE 

* 


MP 


DISPLAYS  CONTENTS  OF 

.ALL  USER  (  ')  REGS  OR 

ISTER  INDIVIDUALLY  IN  THE 

TION  MOPE.  A  '0'  ENDS  THE 

A  CP  ADVANCES  IN  ORDER 
REG  CONTENTS  WITHOUT  ANY 

AND  A  VALID  HEX  ENTRY 
EF  THE  REGISTEF  CONTENTS. 


EGISTER  [<REG  NAME>] 


*  1 


EXTERNAL 

EROR 

LABEL 

EXTERNAL 

GETCHR 

PROCEDURE 

EXTERNAL 

STOBUF 

PROCEDURE 

EXTERNAL 

DISP 

PROCEDURE 

EXTERNAL 

PPNTBF 

PROCEDURE 

EXTERNAL 

CONVB 

LABEL 

EXTERNAL 

GETNXT 

PROCEDURE 

EXTERNAL 

DISPNC 

LABEL 

EXTERNAL 

CONVW 

PROCEDURE 

^SECTION 

REGISTER_PROC 

$REL  0 

0000 

30 

20     LKTBL  ARRAY 

[*  BYTE] :='0  12  3  4  5 

6  7  8  9 

101112131415PCFCRLRH' 

0002 

31 

20 

0004 

32 

20 

0006 

33 

20 

0008 

34: 

20 

000A 

35 

20 

000C 

36 

20 

000E 

37 

20 
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0010 

38 

20 

0012 

39 

20 

0014 

31 

30 

0016 

31 

31 

0019 

31 

32 

001 A 

31 

33 

001C 

31 

34 

001E 

31 

35 

0020 

50 

43 

0022 

46 

43 

0024 

52 

4C 

0026 

52 

48 

0028 


0028  BD6E 
002A  34E1 
002C  031E 
002E    E803 


GLOBAL 

PRPEG2        L.5?EL 
PRREG1         PROCEDURE 

I* '-  "ir  ^r   *■'■*  *-V  **r  *  **  t**  *  '*  *'*  * !'  *'*  *■*«*  *•*  V*  ~jL*  V*  *V  *'*  *-'*  *'*  ***  **■*  »'*  V*  •*+  *-'  -  *'-  *'*  ***  •»*■•  V'  ***  *V  «•*«  «J*  »'*  -JU  •/*  ■*'* 
*»*  ^n ^  i*  n*  *h  "P1  *r  -t*  *n  n*  *i» *i>  **•  ?i»  i*  n*  n* *r»  -r*  «&*§**$  "i*  *r  -r*  *n  i»r  *i*  *r»  *>*  **»■* *r-  *&•  *4*  ***  nr Ir*  *»■» 

*  PF.PZG1:    OUTPUT    CONTENTS    OF  USER  * 

*  REGISTERS    0-13    TO    CONS.  * 

*  PKREG2:    OUTPUTS    CONTENTS    OF   USER  * 

REGS    R14,R15tRPC,RFC .  * 

ENTRY 

LDK  R6,#14  !    SET    ft    REGS    ! 

LDA  R1,R14(#R0    )  !    LOAD    BASE    ADR    ! 


JR 


PLOOP 


•^030  BD64 
0032  34E1 
0034    033A 


!    PRREG2  ENTRY    POINT    ! 
PRREG2: 

LDK  R6,#4         !    SET    2ND    LINE   REG    #    ! 

LDA  R1,R14(#R14_)       !    LOAD    BASE    ADP    ! 


!    MAIN    PRINT    LOOP    ! 
PLOOP: 


0036 

2115 

LD 

0038 

34CA 

LDA 

003A 

0000* 

003C 

1FA0 

CAL 

003E 

AB60 

DEC 

0040 

E604 

JR 

0042 

69E0 

INC 

0044 

0306 

0046 

A911 

INC 

0048 

F3E6 

JR 

R5,@R1 

R10,R12(#CONVW) 


!    CONVERT    HEX    TO    ! 


@R10 

!    ASCII    ! 
F.6,#l  !    DONE?    ! 

Z,PRNT  !    OUTPUT    IF    YES    ! 

CUT?TR(R14),#1 


Rl  f#2 
PLOOP 


!    GET    NEXT    REG    ADR    ! 
!    LOOP    ! 
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004A 
004C 

004E 

34CA 

0000* 

IE  AS 

PRNT: 
LDA 

J? 

R10fR12(#PRNTBF) 

GR10 

0050 

END  PRREG1 

0050 

GLOBAL 
RGHDR2 

RGHDfil 

LAEEL 
PROCEDURE 

0050  BD0E 
0052  3405 
0054  FT4.5 
0056  E805 


*  RGHDR1:  OUTPUT  HEADER  FOR  REGISTERS  * 

*  F.0  -  R13.  * 

*  RGHDR2:  OUTPUT  HEADER  FOR  REGISTERS  * 

*  R14,  R15,  RPC,  RFC.         * 

ENTRY 

LDK  R0,#14  !    SET    PRINT   COUNT    ! 

LDAR  R5.LKT3L 


JR 


HLOOP 


0058  ED04 
005A  3405 
^05C  FFA2 
005E  0105 
0060  001C 


!  SECOND  HEADER  ENTRY  POINT  ! 
RGHDF2: 

DDK      R0,#4       !  SET  P^INT  COUNT  ! 

LDAR      R5,LKTBL 


ADD 


R5,#28 


!  MAIN  PRINT  LOOP  ! 
HLOOP: 


0062 
0064 
0066 
0068 
006* 
006C 
006E 
0070 
0072 
0074 
0076 
0078 
007A 
007C 


31E2 
0306 
0C25 
5252 
69E0 
0306 
2151 

DFF^ 
AB00 
E6EA 
69E1 
0306 
A951 
E8F2 


LD 

LDB 

INC 

LD 

CALR 

DEC 

JR 

INC 

INC 
JR 


!  LOAD  OUTBUF  INDEX  ! 


R2,R14(#0UTPTR) 

GR2,#'R' 

0UTPTR(R14) 


R1,@R5       !  GET  CHR  FROM  TABLE  ! 
STOBUF       !  STORE  IN  OUTBUF  ! 
R0,#1        !  DONE?  ! 
Z,PRNT       !  YES,  OUTPUT  BUFFER  ! 
0UTPTR(R14) ,#2   !  NO,  CONTINUE! 


R5,#2 
HLOOP 


!    ADVANCE   TABLE    INDEX! 
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007E 


END      RGHDR1 


0  07E 


0075 
"080 
0082 
0084 
0086 
0088 
008A 
008C 
008E 
0090 
0092 


93F4 
61E4 
0306 
2E41 
A  940 
2E49 
69E1 
0306 
97F4 
9E08 


GLOBAL 

STOBUE      PROCEDURE 

!- :  *  *£#  *JU  **»  «.'  *  » '»  «J»  *>*  v  *■'*■  '■**   v'-  *■''  "■' -  V*  *■*'  *■*■»  -'  *  V*  *•'■*  •*»  » '»  *■**  *•' *  *'*  *'*  * '  *  *•  -  **■*  * '*  ■*'■*  ""V  "'*  "■''*  "*'  *  *■'*  *■**  **■*  V*  **f 
*r  *i*  *r  *r  *i*  *n*  *r  *r»  *r  •¥•  *r*  *r  *i5  t  n*  *»*  *r  *r»  ^r  *i*  ^*  *i»  *»••  i"T'rT'»'"("i*,r,T'r'i,T*r»r¥T  *r 

*i„  *»* 

*  STOBUF:    STORES    CONTENTS    OF   REGISTER    * 

*  IMmO    OUTEUF    AND    INCREMENTS      * 

*  OUTPTR.  * 

*  * 

*  REG    USE:     INPUT      Rl    =    CONTENTS  * 


ENTRY 
PUSH 

LD 

LDP 
INC 

LDB 
INC 

POP 
RET 
END   STOBUF 


(?R15,R4  !    SAVE   WORK    REG    ! 

R4,0UTPTR(R14) 

(f>R4,RHl  !    STR    1ST    BYTE    ! 

R4 

GR4.PL1  !    STR    2ND    BYTE    ! 

OUTPTR (R14) ,#2 


T,4,(?R15 


!    RESTORE   WPK    PEG    ! 


0092 


GLOBAL 

REGISTER      PROCEDURE 


*  REGISTER:    DISPLAY    AND    ALLOW    CHANGE 

*  OF   USER    REGISTERS. 

JU 

*  REG   USE:    INPUT      ALL 

*  RETURN    SAME 


0092 

340B 

LDAR 

0094 

FF6A 

0096 

34CA 

LDA 

3098 

0000* 

009A 

1FA0 

CALL 

009C 

EF01 

JR 

009E 

E85B 

JR 

00A0 

0A08 

AM:CPB 

00A2 

5252 

00A4 

EE22 

JR 

:,:  :|:sjc  r"<  ?,z  ^:  j^  ;[;  ;Jt  ;J:  #  ■%: ^c :'; s^  ^:  ;Js  ^c  ;!t  :|t  ^; ^  ^i  :;-:  ^;  i|t ic  ^:  2^  :]t  ^?  ;,';  s|s j{;  ;£  ;£  ;;<  ^c  ^  ijc  I 

ENTRY 

Rll.LKTBL 

R10tR12(#GETNXT) 


GR10 

NZ,AM 

PRNTAI 


RL0f#'R' 


NZ.GLOBER 


!    SKIP   REST    CMD    ! 


!    CHECK    DISPLAY   MODE   -   R,    RR ,    RH ,    RL    ! 
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00A6 

34CA 

LDA 

R10,R12( 

00A8 

0000* 

00  A  A 

1FA0 

CALL 

0R10 

P0AC 

E61E 

JR 

Z.GLOBER 

00AE 

A08E 

LDE 

RL6.RL0 

00B0 

0A08 

CPB 

RL0,#'R' 

00B2 

5252 

00E4 

E608 

JR 

Z.PEGID 

00E6 

SC68 

CLR3 

RH6 

0038 

0A08 

CPB 

RL0,#'L' 

30EA 

4C4C 

00BC 

E604 

JR 

Z.REGID 

00BE 

C602 

LDB 

RH6,#2 

30C0 

0A08 

CPB 

RL0,#'H' 

00C2 

4848 

00C4 

EE04 

JR 

NZ.SAVID 

!  GET  NXT  CHR  ! 

!  ERROR  ! 

!  GET  FIRST  CER  ! 

!  CK  FOR  'RR'  ! 

!  YES,  GET  REG  ID  ! 

!  IS  LOW  BYTE?  ! 

!  YES  ,  GET  REG  ID  ! 

!  IS  HIGH  BYTE?  ! 


00C6 
00C8 
00CA 
00CC 

00CE 

00D0 
00D2 

00D4 
00D6 
00D8 
00  DA 


34 C  A 

0000* 

1FA0 
E60E 

A081 

34CA 
0000* 

17A0 

EE02 
C920 
E801 


!  GET  REGISTER  ID  NUMEER  ! 
REGID: 

R10,R12(#GETCHR) 


LDA 


!  GET  1ST  CHAR  ! 


RH1.RL0 
R10,R12(#GETCHR) 


00DC  A089 


00DE 
00E0 
00E2 
00E4 
00E6 


2108 
0012 
<1B9 
BB94 
0816 


CALL  3R10 

JR  Z.GLOBER 

SAVID: 
LDB 

LDA 

CALL  QR10 

JR  MZ.SAVID2 

LDB  RL1,#'    ' 

JR  FNPNAM 

SA7ID2: 

LDE      RL1.RL0       !  SAVE  EOTH  DIGITS  ! 
!  FIND  REG  ID  IN  REG  LOOKUP  TABLE  ! 
ENDN  *M: 

LD       R8,#18       !  TABLE  LENGTH  ! 


!  GET  2ND  CHR  ! 
!  PAD  WITH  SPACE  ! 


00E8  E603 


00EA 
00EC 
00EE 

00F0 
?0F2 


34CA 

0000* 

1EA8 

AB91 
2102 


LD 
CPIR 


JR 

GLOBER: 
LDA 

JP 

AJ:DEC 
LD 


R9.R11    !  BASE  OF  LKUP  TBL  ! 
R1,0R9,E8,EQ  !  LOOK  FOR  MATCH  ! 


Z,AJ 


R10,R12;#EROR) 
@R10 


R9,#2 
R2,#17 


!  ADJUST  CORRECT  ADR! 
!  DETERMINE  REG  MEM  ! 
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00F4 
00E6 
?0F8 
00FA 
00FC 

00FE 
0100 
0102 
0104 
0106 
010S 
01 0A 
010C 
010E 


0110 
2112 
0114 
0116 
0118 
011A 
011C 

011E 
0120 
0122 
3124 
0126 
0128 
012A 
012C 
012E 
0130 
0132 
0134 

0136 
0138 
013A 
013C 
013E 


0011 
8392 
A 128 
E361 
0001 

0A0E 
4648 
E65E 
0A0E 
4C4C 
E65B 
0A0E 
5252 
E628 


2101 
5220 
D04C 
63E0 
0306 
2191 
D050 
69  E0 
0306 
34ED 
031E 
71D5 
0800 
34CA 
0000* 

IF  »0 
9E07 
E60A 
2192 
34BA 
0022 
83  a  2 
EE01 
A330 


0140  76ED 
0142  031E 
0144  73D3 
0146  0800 

0148  A981 


SUR 
LD 

SLL 


R2.R8 
R3.R2 
E8  ,#1 


!  INDEX  ! 


!  DETERMINE  DISPLAY  MODE  OUTLINE  ! 


CPE 

JR 
CPB 

JR 
CPB 

JR 

!  SINGLE 
SWCRP: 
LD 

CALR 
DEC 

LD 

C  A  L  a 
INC 

LDA 

LD 

LDA 

CALL 

RET 
JR 
LD 
LDA 

C? 
JR 
RES 

JMPOV? : 
LDA 

LD 

SAME: 
INC 


RL6,#'H 

Z.3YT 
RL6,#'L 

Z.BYT 

RL6,#'R 

Z, LWORD 


!  RL6=M0DE  ! 

!  BYT  MODE  ! 

!  ALSO    BYTE    VCDS    ! 

!  LONG  WORD  MODE  ! 


WORD  DISPLAY  MODE  ROUTINE  I 

R1,#'R  ' 

STOBUF  !    STORE    IN    OUTEUF    ! 

0UTPTR(R14) ,#1 


Rl  ,(?R9 
STOBU? 
0UT?TR(R14),#1 


STORE  REG  ID  ! 
!  ADD  SPACE  ! 


R13,R14(#R0_) 
R5,R13(R8) 
R10,R12(#DISP) 


0R10 
C 

Z.SAME 
R2,@R9 

R10,R11(#34) 

R2.R10 
NZf JMPOVR 
R3,#0 


!  OUTPUT  TO  CONS  ! 

!  ?EC  '0'  ! 

!  REC  CR,  STAYS  SAME  ! 


!  NOT  PC  REG  ! 

!  CHG  TO  EVEN  ADR  ! 


R13,R<3_(R14)     !  CHG  REG  CONTENTS  ! 
R13(R8),R3 


R8,#2 


!  ADJ  REG  INDEX  ! 
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3  14:  A 

A991 

INC 

R9,#2          !  ADJ  TAELE  ADR  ! 

C14C 

34B3 

IDA 

R3,R11(*35)   !  GET  END  CE  TBLE 

3142 

0023 

0150 

8339 

CP 

R9,R3          !  END  OP  TAELE?  ! 

3152 

E7DE 

JR 

C, SWORD        !  NO,  CONTINUE..! 

0154 

9E38 

RET 

!  YES,  DONE  ! 

!  ROUTINE  TO  PRINT  ALL  HEADERS  AND  CONTENTS 

PP.NTAL: 

0156 

D084 

CALR 

RGHDR1 

0158 

T099 

CALR 

PRREG1 

0 1 5  A 

D082 

CALP 

P.GHDR2 

015C 

D097 

CALR 

PRREG2 

015E 

9E08 

RET 

!  LONG  WORD 

DISPLAY  MODE  ROUTINE  ! 

LWORD: 

0160 

A13D 

LD 

R13.R11   T  R15  ADDR  ! 

0162 

010D 

ADD 

R13,#30 

0164 

001E 

0166 

83D9 

CP 

R9.R13 

0168 

EEC0 

JR 

NC  .GLOBER      !  RR0  -  RR14  OK  ! 

316A 

0A09 

CPB 

?L1,#'  '       !  CK  IF  DIGIT  REG 

016C 

2020 

016E 

E602 

JR 

Z, EVNCK 

0170 

A710 

BIT 

P1,#0     !  CK  IE  2ND  CHR  EVEN  ! 

0172 

E801 

JR 
EVNCK: 

OVER 

0174 

A716 

BIT 
OVER: 

Rl  ,#8 

0176 

EEB9 

JR 

NZ,GLOBER 

!  LONG  WORD 

DISPLAY  MODE  ROUTINE  ! 

LWLOOP: 

0178 

2101 

LD 

Rl, #']?!' 

017A 

5252 

017C 

D080 

CALR 

STOEUF      !  STORE  IN  OUTEUF  ! 

017E 

2191 

LD 

R1.0R9 

0180 

1FA0 

CALL 

0R10     !  ADD  REG  ID  ! 

0ie2 

69E0 

INC 

OUTPTR(R14) ,#1     !  ADD  SPACE  ! 

0184 

0306 

0186 

34E4 

LDA 

R4,R14(#R0_)    f  LOAD  1ST  WORD 

0188 

031E 

018A 

7145 

LD 

R5,R4(R8) 

018C 

0800 

0185 

34  C  A 

LDA 

R10,R12(#CONVW) 

0190 

0000* 

0192 

1FA0 

CALL 

GP10          !  CONVERT  1ST  ! 

0194 

A941 

INC 

R4,#2 

0196 

7145 

LD 

R5fR4(R8)  !  LOAD  2ND  WORD  ! 
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?198 

0800 

019A 

34CA 

LDA 

Pl£,E12(#DISP) 

019C 

0000* 

019E 

1FA0 

CALL 

GR10 

01A0 

9E07 

RET 

C 

01A2 

E607 

JH 

Z, AROUND     !  REC  CR  ,  NO  CHG  ! 

01A4 

34E4 

LD« 

R4,P14(#R0_) 

01A6 

031E 

01A8 

7342 

LD 

R4(R8)  ,R2 

£1AA 

0800 

01AC 

A941 

INC 

P4,#2 

01AE 

7343 

LD 

R4'R8) ,R3 

01B0 

0800 

AROUND: 

0132 

A  983 

INC 

R8,#4 

01B4 

A993 

INC 

P9,#4      !  INCREMENT  TO  NEXT  RR 

i 

01B6 

34E3 

LDA 

R3,R11(#16) 

0138 

0010 

P1BA 

8339 

CP 

R9.R3      !  FINISHED?  ! 

01BC 

E7DD 

JH 

C.LWLOOP 

013E 

9E08 

RET 

!  DONE  ! 

!  BYTE  DISPLAY  ROUTINE  ! 

BYT: 

01C0 

A1B4 

LD 

R4.R11 

01C2 

«947 

INC 

R4,#8 

01C4 

8B49 

CP 

R9,R4         !  CI  IF  PEG  >P7  ! 

01C6 

EE91 

JR 

NC ,GL03SR 

01C8 

3361 

S?L 

R6,#3 

01CA 

FEES 

01CC 

SE01 

JR 

NZ  ,THRU 

01CE 

A  980 

INC 

THRU: 

R8 

01D0 

A134 

LD 

R4.R11 

01D2 

0104 

ADD 

R4,#18 

01D4: 

0012 

01D6 

7141 

LD 

Rl  ,R4(R6) 

01D8 

0600 

01DA 

D0AP 

CAL? 

ST03UF       !  STORE  IN  OUTBUF  ! 

01  DC 

2191 

LD 

Rl  ,0R9 

01DE 

1F40 

CALL 

GR10 

01E0 

31E4 

LD 

R4,R14(#R0_) 

01E2 

031E 

C1E4 

704D 

LDB 

RL5,R4(R8) 

01E6 

0800 

01E8 

34CA 

LDA 

R10tR12(#CONVB) 

01EA 

0000* 

01EC 

1EA0 

CALL 

$R10          !  CONVERT  WORD  ! 
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01EE   69E0  INC  0UTPTRU14)  ,#1 

01F0    0306 

01F2  34CA  LDA       R10, P12(#DISPNC) 

01F4  0000* 

01F6  1FA0  CALL     GR10     !  OUTPUT,  CK  FOR  INPUT  ! 

01F8  9E07  RET       C  !  FINISHED,  PEC  'Q  '  ! 

01FA  E604  JR        Z.ABA      !  REC  CR ,  STAYS  SAME  ! 

01FC  34E4  LDA        R4,E14(*R0_) 

01FE  031E 

0200  724B  LDB        R4(R8),RL3 

0202  0800 

ABA: 

0204  A980  INC       R8,#l 

0206  AB61  DEC       R6.#2        !  INCREMENT  INDEXES  ! 

0208  E6E3  JR        Z,THRU       !  OUTPUT  LOW  EYTE  ! 

020A  2106  LD        R6,#2 
020C  0002 

020E  A991  INC       R9,#2       !  GET  NEXT  BYTE  G-RP  ! 

0210  A133  LD      R3.R11 

0212  A937  INC      R3,#8 

0214  8B39  CP       R9,R3        !  CK  FOR  END  ! 

0216  E7DC  JR        CTHRU       !  NO,  CONTINUE...! 

0218  9E08  RET  !  YES.  ! 

021A       END  REGISTER 

END  REGISTER  CMD 
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5.   DISPLAY  MODULE 


Z8000ASM   2.02 

LOC     OBJ  CODE  STMT  SOURCE  STATEMENT 

1  DISPLAY_CMD  MODULE 
SLISTON   $TTY 

*  * 

*  DISPLAY   CMD:    DISPLAYS    CONTENTS    OF  * 

*  SPECIFIED  MEMORY  LOC  * 

*  WITH   ABILITY    TO    CHANGE   CONTENTS  * 

*  OF  MEM. AS  PER  <CNT>.  CONTENTS  * 

*  AFE  DISPLAYED  16-BYTES /LINE  WITH* 

*  SPACE  BETWEEN  BYTES/WORDS/LWORDS* 

*  AS    SELECTED    [B/W/L] .    WITHOUT  * 

*  COUNT, CONTENT  IS  DISPLAYED  IN  * 

*  UNIT  B/W/L.  ENTERED  DATA  WILL  * 

*  CHG  CONTENTS?  CR  WILL  NOT?  AND  * 

*  '0'  WILL  EXIT  CMD.  * 

*  # 

*  FILL:    STORES    GIVEN    DATA(WORD)  * 

*  IN  ALL  INCLUSIVE  MEMORY  LOC  * 

*  DEFINED  BY  <BGN  ADR>  AND  * 

*  <END  ADR>.  * 


* 

MOVE:    M0  7ES    BLOCS    OF    D«TA    AS 

*»* 

* 

DEFINED    3Y    SIZE    <SIZ>    FROM 

* 

START    ADR    <SCR>    TO    DEST. 

* 

* 

ADR   <DST> . 

* 

# 

SYNTAX:    DISPLAY   <ADR> [<CNT>]  [B/W/L] 

* 

* 

MOVE   <SCR>   <DST>    <SIZ> 

"1* 

* 

FILL    <BGN    ADRXEND   ADRXWD> 

sis 

* 

# 

CONSTANT 

(  INCLUDE  GL03AL  CONSTANTS  ) 

EXTERNAL      EROR  LABEL 

EXTERNAL   ASCEEX    PROCEDURE 
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GLOBAL 

^SECTION    DISPLAY_PROC 

£REL    0 


0000 


GLOBAL 

SKPBLK      PROCEDURE 

*  SKPBLK:    SKIP    OVER    BLANKS    TO    NEXT  * 

*  CHARACTER.  * 

*  # 

*  REG-   USE:      RETURN      RL0    =    1ST    NON-ELK   * 

*  CHAR    AND    Z    IF    =CR    * 

ENTRY 

!    SKIP   OVER    BLANKS    TO    NEXT   ARGUMENT    ! 


!    GOT    CP    ! 

!    CK    FOR   BLANK    ! 


0000 

DEE0 

CALR 

GETCHR 

0002 

9E06 

PET 

Z 

0004 

0A08 

CPB 

RL0,#'    ' 

0006 

2020 

0008 

E6F3 

JR 

Z, SKPBLK 

000A 

9E08 

RET 

000C 

END    SKPBLK 

!    YES 

!    GOT   CHAR    ! 


000C 


GLOBAL 

GETADR      PROCEDURE 

1-  *V*  *n  «i»  ¥  *t*  n*  t  *i*  f  v  n*  'i5  '«»  n*  *r  nf«  *)•  *r  i*  -i*  n*  ¥  *»*  *&  *r*  n*  »r  *?  t  -t*  *^  n»  *r  *r  *f  »>4  in  ^  *r 

*  GETADR:    GETS    NEXT   ARGUMENT    AND  * 

*  CONVERTS    TO   HEX   ADDRESS.  * 

*  * 

*  PEG   USE:    INPUT      RL0   =    1ST    CH   OF    ARG    * 

*  RETURN      R3    =   HEX    ADR  * 

*  AND    Z,C       IF    CR    ONLY* 

*  Z,NC    IF    ARGtCR   * 

*  NZ,NC    IF   ARG,SP    * 

*  * 

ENTRY 

!    CK    FOR    CR    ONLY    ! 

!    CK    FOR    CR    ! 


!    RETURN    FOR    CR    ONLY    ! 


000C 

8D38 

CLR 

R3 

000E 

0A08 

CPB 

RL0,#CR 

0010 

0D0D 

3012 

EE02 

JR 

NZ.NOTCR 

0014 

8D81 

SETFLG 

C 

0016 

9E08 

RET 
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ICONVERT    ASCII    ADDRESS 

TO    HEX    ADDRESS    ! 

NOTCR: 

0018 

DFE2 

CALR 

CONVERT 

!BYTE    TO    4-BIT    HEX    ! 

001A 

E70A 

JR 

C, REP ERR 

!    GOT    BAD   CHR    ! 

^01C 

BFB8 

RLDB 

FL0.RL3 

001F 

BE38 

RLDB 

RL0,RH3 

ISHFT    LEFT    TO    MS W    ! 

0020 

DFF0 

CALR 

GETCHR 

!    GET    CHR   FROM    INTBU 

0022 

9E06 

RET 

Z 

0024 

0A08 

CPE 

RL0,#'    ' 

!CK    FOR    SPACE    ! 

0026 

2020 

0028 

EEF7 

JR 

NZ  , NOTCR 

!     IF    NOT,    CONT ! 

0  02  A 

D016 

CAL? 

SXPBLX 

!    SKIP    TO    NEXT    ARG    ! 

002C 

3D93 

RESFLG 

C 

002E 

9E08 

RET 
REPERR: 

!    SPACE    «FTER    ARG    ! 

0030 

34CA 

LDA 

R10,R12(#ERCR) 

0032 

0000* 

0034 

1EA8 

JP 

0^10 

0036 

END   GETADR 

0036 


GLOBAL 

GETNXT      PROCEDURE 

f»V  *V  5**  *V  Vf  "J*  sii  ***  •**  aft  *V  "***  ***  ***  *fe  ***  *V  sfa  V-  V^  4t  •**  **•  ***  ***  V*  «*»  ***  1R0  ***  •%  *V  **>  "r^  *V  *J"  *^  **c  **•  **• 
*■,*  *^  #^    #!*  J,-    *,»  ^[4  *|»   *,-*  *,"!    -  ,i   J,%  *^»    -J*  «"^    *,»  *--»    ^*  ?f>   <-,^    *^*  #,•  ^,*    -j*  *,-»    ?,»    »,»    *,«.    #,-    «|*  «f*    »,-    .-,-  J,»   *,^    rp.   -j»   a^   ^-    rfl 

*  GETNXT:    SKIP    TO   BEGINING    OF    NEXT  * 

*  ARGUMENT    IN    COMMAND.  * 

*  * 

*  REG   USE:       RETURN      RL0    =    CHAR    OR    CR      * 

*  AND    Z    IF   =    CR  * 


ENTRY 

!    SKIP   OVER    CURRENT    ARGUMENT    TO    NEXT    SPACE    ! 

!    RTN    IF  CH=CR    ! 

!    FIND   FIRST    SPACE    ! 


!    NOW    SKI?    BLANKS    ! 


0036 

DFFB 

CALR 

GET CHR 

0038 

9E06 

RET 

Z 

003A 

0A08 

C?B 

RL0,#'    ' 

003C 

2020 

003E 

EEF3 

JR 

NZ, GETNXT 

0040 

E8DF 

JR 

SKPBLK 

0042 

END   GETNXT 
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0042 


GLOBAL 

GETCHR   PROCEDURE 

*  GETCHR:  GETS  NEXT  CHR  FROM  INTBUF    * 

*  AND  INCREMENTS  INTPTR.       * 


*  REG  USE:  RETURN   RL0  =  CHR 

*  AND  Z  IF  CR 


ENTRY 

!  SAVE  WORK  REG  ! 


!  GET  CHR  ! 

1     !  INC  PTR  ! 


0042 

93F2 

PUSH 

G>R15,R2 

0044 

61F2 

LD 

R2,INTP 

0046 

0304 

0048 

2028 

LDP 

RL0,G>R2 

0  04  A 

69E0 

INC 

INTPTR( 

204C 

0304 

004E 

0A08 

CP3 

RL0,#CR 

005? 

0D0D- 

0052 

97F2 

POP 

P.2.GR15 

0054 

9E08 

RET 

0056 

END  GETCHR 

!CX  FOR  CR  ! 


0056 


GLOBAL 

CONVERT   PROCEDURE 

f  *#* 3jc*#*3lc#5!t###5!e* #**#***#*##* ^Jie*********^:* 


CONVERT:  CONVERTS  8-BIT  ASCII  CHR 
TO  4-BIT  HEX  V«LUE.  VALID 
CHR  IS  0-9  OR  A-F;  IF  NOT 
CHR,  EXIT  TO  EXEC  EROR. 

REG  USE:  INPUT   RL0  =  8-BIT  ASCII 
RETURN  RL0  =  4-BIT  HEX  IN 
LSW. 


ENTRY 

!    CHECK   FOR    VALID    CHAR    ! 


0056 

0A08 

CPB 

0058 

3030 

005A 

9E07 

RET 

005C 

0A08 

CPB 

005E 

3  A3  A 

0060 

E708 

JE 

O062 

0A08 

CPB 

0064 

4141 

0066 

9E07 

RET 

0068 

0A08 

CPB 

RL0,#  0 


!  FILTER  <'0   ASCII  ! 


C  !  ERROR  ! 

RL0,#'9'+1    !  CK  IF  DIGIT  ! 


C.NOFIX 

RL0,#'A 


!    FILTER    <'A'    ASCII    ! 


RL0,#'F'+1    IFILTFR    >'?'    ASCII    ! 
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006A    4747 

306C    EF06 

JR 

NC.PETSI 

006E    0208 

SUBB 

RL0,#7 

0070    07?7 

NOFIX: 

0072    0608 

AND3 

RL0,#%0F 

0074    0F0F 

0076   8Ee3 

RESFLG 

C 

0078   9E08 

RET 
RETSIG: 

007A    8D81 

SETFLG 

c 

007C    9E08 

RET 

007E 


007E 


!    ALPHA   ADJUST    ! 
!    GET    LOW    NIBELE    ! 
!    RTN    HEX    VALUE    ! 
!    RTN   ?OR    BAD    CHR    ! 


END    CONVERT 

GLOBAL 

PBUFNC      LABEL 
PRNTBF   ^  PROCEDURE 

1  8*5  -V» *$  5JC  5p  3j£  3p  5jt  >(C  qC  *JC  <t»  i*  5{C  9gC  5jC  *p  -r,»  J,*  5jC  -^  *,»  Jr  ^C  ^.  * ,<  s^  V  ^>  2$  ^5  .,'  Jjt  «-,;  ^  ,,   7£  -,,  ^  ggfl 


007E  61E2 
0080  0306 
0082  0C25 
0084  0D0D 
2)1386  69E0 
0088    0306 


008A    76E1 
008C    0080 


008E 
0090 
0092 
0094 
0096 
0098 
009A 
009C 


2018 
A910 
DFE9 
E604 
4BE1 
0306 
E7F9 
E802 


*  PRNTBF:  PRINT    CONTENTS    OF   OUTBUF  * 

*  TO    CONS    WITH    CR   AT    END.  * 

*  * 

*  PBUFNC:  PRINT   BUFFER    CONTENTS   WITH      * 

*  NO    CR.  * 

ENTRY 

!    STORE    CR    IN    OUTBUF    ! 

LD  R2,OUTPTR(R14) 


LDB 
INC 


PBUFNC: 

LDA 


@R2,#CR 

OUTPTR(R14),#l 

R1,0UTBUF(R14)         !    LOAD    ADR   OF   OUTBUF    ! 


!    OUTPUT    LOOP    ! 
PRNT: 

LDE 

INC 

CALR 

JR 

CP 


RL0,QR1  !  GET    CHR    ! 

Rl  !  INC    INDEX    ! 

SNDCHR  !  OUTPUT   CHR    ! 

Z,OUTLF  I  ?CHR    =   CR    ! 

Rl  ,0UT?TR'R14)  !    CK   FOR   END    ! 


JR 

JR 


C,?RNT 
FINI 


!    LOOP ! 

!    FINISHED    ! 
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009E  C80A 
00A0  DFF0 


00A4 
00A6 
00A.8 
00AA 
00AC 
00/E 
00B0 
00B2 
0014 
00B6 
00B8 
00BA 
00EC 
00BE 
00C0 
00C2 


76E3 
0080 
6FE3 
0306 
2100 
003? 
4DE5 
0080 
2020 
76E2 
0080 
A123 

*931 
BB21 
0030 
9E08 


!  ADD  LF  AFTER  OUTPUT  OF  CR  ! 
OUTLF: 

LDB  RL0,#LF        !  OUTPUT  LF  ! 

CALR  SNDCHR 

!  FILL  OUTBUF  WITH  BLANKS  AND  RESET  OUTPTR  ! 
FINI  : 

LDA  R3.0UTBUF(R14) 


LD 
LD 
LD 

LDA 

LD 

INC 

LDIR 

RET 
END  PRNTBF 


0UTPTR(R14) ,R3    !    RESET    PTR    ! 
R0,#OUTSIZ/2-l    !    FILL    CNT    ! 
OUTBUF(R14),#'       ' 

R2,OUTBUF(R14) 


R3,R2 

R3,#2' 
0R3,(3R2,R0 


!  FILL  OUTBUF  ! 


00C2 


00C2  67E2 
70C4  ?31C 
00C6  FEFD 

00C8  3A04 
00 C A  FFE3 
00CC  A600 
00CE  F6F9 
00D0  3A66 
00D2  FFE1 


GLOBAL 

SNDCHR   PPOCEDURE 

*  SNDCHR:  CK  MONITOR  FLAG  WORD  FOR     * 

*  OUTPUT  STOP  SIGNAL  (OSTOP);  * 

*  IF  NOT,  SEND  CHAR  TO  CONS.   * 

*  REG  USE:  INPUT    RL0=  CHR  * 

*  RETURN   RL0=  CHR  AND  Z  IF   * 

*  CHR  =  CR.      * 

ENTR  Y 

!  WAIT  FOR  OUTPUT  OK  SIGNAL  ! 

BIT       MFLAGS(R14),#OSTOP    !  CK  FLAG  ! 

JP.        NZ, SNDCHR 
! OUTPUT  CHAR  TO  TERMINAL  ! 

INB      RH0.PORTBC    !  GET  PORT  STATUS  ! 


BITB 

JR 

OUTB 


RH0,#TXR 
Z, SNDCHR 
PORTBD,RL0 


!  TRANS  RDY?  ! 
!  NO,  CONTINUE. . . ! 
!  YES,  OUTPUT  CHR  ! 
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001)4  0A0S 
A0D6  0D0D 
00D8  9E08 
F0DA 


CPB 

RET 
END    SNDCHR 


RL0,#CR 


00DA 


GLOBAL 

CONVB         LABEL 
CONVW         PROCEDURE 

*  # 


* 

* 


CONVW 


CONVERT    INTERNAL    WORD,    4- 
4-BIT   HEX    VALUES    TO   FOUR 
8-BIT    ASCII    REPRESENTATIONS 
OF   THE   HEX   VALUES. 


CONVB 


CONVERT    INTERNAL    EYTE   HEX 
VALUE    TO    1SCII    CHARACTERS. 


REG  USE:    INPUT      R5   =   WORD/BYTE(S) 

R3   =    CKSUM    ACCUM 
RETURN    R3   =    UPDATED    ACCUM 
AND    ASCII    CHR 
IN    OUTBUE 


* 


J'  *A»<tl*>  tVJr  *',»  »<***»  *i#  *A*  **•  yL-  *i*   .'»»U  V'Vf  «•*<•»**  -J*  *J*  »>  *V  *'-  »V  ~J-  •»'*  »'' Jf  **•»  ~V  *■*■*  ******  ***  »l*  *jy  *JU  %JL*  •!*    ff 
*f»  *,-  ^,-  »,*  ?,*«  «,»  . ,-  ,r~  *r**»»  *t*  *y**i»  *i*»i*  *f»  T"  *Y**T*  *l*  *C  *i*  *»*  *f*+r*  *(■  »t*  *T*  ^^  *i*  *p  *p  *i*1*  ***  1*  t*  *»*  1*  *l*    " 

ENTRY 

!    CONVERT    WORD    ! 


00DA 

A050 

LDB 

RH0.RH5 

!    1ST    BYTE    ! 

00DC 

DFFF 

CALP 

NIBBLE 

!    CONVERT 

BYTE    ENTRY 

POINT 

j 

CONVB: 

00DE 

A0D0 

LDE 
NIBBLE: 

RH0.RL5 

00E0 

BE08 

RLDB 

RL0,RH0 

! 

FIRST    NIBBLE    ! 

00E2 

DFFF 

CALE 

CONPUT 

00E4 

BE08 

RLDB 

RL0.RH0 

!    NEXT    NIBBLE    ! 

! CONVERT 

NIBBLE   TO    ASCII 

CHAR    A> ' 

CONPUT: 

00E6 

3608 

ANDB 

RL0,#%0F 

! 

GET    NIBBLE    ! 

00E8 

0F0F 

00EA 

8083 

ADDB 

RL3tRL0 

i 

UPDATE    CKSUM    ! 

00EC 

0A08 

CPB 

RL0,#%0A 

i 

0-9?    ! 

00EE 

0A0A 

00F0 

E702 

JH 

C,     ASCII 

t 

YES...    ! 

00F2 

0008 

ADDB 

RL0,#7 

? 

NO,    CONVERT    CHR    ! 

00E4 

0707 

ASCII: 

00F6 

0008 

ADDB 

RL0,#%30 

! 

CONVERT    TO    ASCII 

00F8 

3030 
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!    STORE    IF   OUTBUF    ! 


00FA 

93F1 

PUSH 

GR15.R1 

00FC 

6131 

LD 

Rl  ,GUTPTR(R 

00FE 

0306 

0100 

2318 

LDB 

(?R1,RL0 

0102 

6930 

INC 

OUTPTR'R14) 

0104 

0306 

'U06 

97F1 

POP 

D1,GR15 

0108 

9308 

RBT 

010A 

3ND    CONVW 

!    SAVE    Rl    ! 


!    STORB   CHR    ! 


01 0A 


010A  D019 
010C  6930 
0103   0306 


GLOBAL 

DISPNC         LABBL 
DISP  PROCEDURE 


* 

* 
* 


DISP:    C0NV3RTS    INPUT    TO    FOUR    ASCII 
CHAR,    STORBS    IN    OUTBUF,    AND 
DISPLAYS    WITH   CR?    GFTS    NBXT 
8    ASCII    CHARS,    STORES    IN 
INTBUF,    AMD    C0NV3RTS    TO   H3X 
LONG   WORD    IN    RR2. 

DISPNC:    S3NDS    TO    CONSOLE    ALL    IN 

OUTBUF   UP    TO    OUTPTR,    WITHOUT 
CRJ    GETS    NEXT    8-ASCII    CHR 

REG   USE:    INPUT        R5   =   WORD 

RETURN      R2,R3    =   8-HEX 

AND    C  IF    REC    0 

NC,Z    IF    CR 
NC,NZ    IF    INPUT 
WITH    CR 


S&fi 

* 
# 

a* 


ENTRY 

CALF.  CONVW  !    ADD    SPACE    ! 

INC  0UTPTR(R14),#1 


0110 
3112 
0114 
0116 

0118 


D044 

34CA 

0000* 

1FA0 

9308 


DISPNC: 
CALR 
LDA 

CALL 
PET 


PBUFNC  !    OUTPUT   TO    CONS    ! 

R10,R12(#ASCHEX) 


0R10 


!    GET    NEW    R2,R3    INPUT    ! 


011A 


END   DISP 
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011  ft 


GLOBAL 

DISPLAY    PROCEDURE 

T  *TT  *l*  Wp  *("»  **|*  *i»  'P  *t*  *t*  *p  1*  *t*  *T*  *i*  *V  ^*  TP  "I*  *|"  •f  1*  ^P  *T*  *!*  *F   "T*  »t*  1*  *t*  *l*  *f*  *<*  *I*  *T*  *¥*  *I*  HT  *1*  "TP  T* 


DISPLAY:    DISPLAYS    SPECIFIED    CONTENTS* 
OF   MEMORY.  * 

a. 
-r 

REG   USE:    RE7.RL7    =    MBYTES /SPACE  * 

Fd   =    OUTBUF   ADR   FOR   OUTPUT  * 

*  511    =    <ADDR>  * 

*  F13    =   <COUNT>  * 


ENTRY 

011 A 

D073 

CALR 

GETNXT 

011C 

2107 

LD 

R7,#%202 

0115 

0202 

0120 

SE01 

JR 

NZ  .GOTARG 

0122 

E84C 

JR 
OOTARG: 

EX  ERR 

0124 

D08D 

CALR 

GETADR 

0126 

A13B 

LD 

R11.R3 

0128 

F637 

JR 

Z.SUBMOD 

012A 

D090 

CALR 

GETADR 

012C 

A13D 

LD 

R13,R3 

012E 

F601 

JR 

Z, TSTCNT 

0130 

EE45 

JR 

TSTCNT: 

NZ.EXERR 

0132 

8DD4 

TEST 

R13 

0134 

E643 

JR 

Z  t EXiRR 

0136 

2109 

LD 

0138 

0010 

013A 

A1B5 

LD 

013C 

D032 

CALR 

013E 

69E0 

INC 

0140 

0306 

0142 

76E8 

LDA 

0144 

0080 

0146 

0108 

ADD 

0148 

0035 

014  A 

0C85 

LDB 

014C 

2A2A 

014E 

i960 

INC 

!    HAVE    NEXT    AEG    ! 
!    RETURN    TO    EXEC    ! 

!    NEXT    AEG    IS    ADR    ! 
!    SAVE    ADDRESS    ! 
!    <ADRXCR>   =   SUBMODE! 
!    GET    <CNT>    ! 

!    GOT    CE    AFTER    <CNT>    ! 
!    NOT   THERE ! 


!    TEST    <CNT>    ! 

!    <CNT>=0,    ERROR    ! 


!    MAIN    LOOP    FOR    PRINTING    DISPLAY    LINES     ! 
NEWL: 

R9,#16  !    BYTES/LINE    ! 

R5.F11 

CONVW  !    CONVERT    BYTE    ! 

0UTPTR(R14) 

R8,OUTBUFfR14)    !    SET   DISPLAY    ! 

R8,#53 

!    FORMAT    ! 
G>P8,#'*' 

R8 

!    LOOP   FOR   DISPLAY   B/W/L   UNITS    ! 
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PUTONE: 

2150 

20BD 

LDB 

RL5,0R11 

!  FETCH  MEMORY  ! 

0152 

2E8D 

LDB 

0R8,SL5 

0154 

0A0D 

CPB 

RL5,#'  ' 

!  CK  FOR  CHAR  ! 

0156 

2020 

0158 

S703 

JR 

C, DONTP 

!  DOMT  PRINT  ! 

015A 

0A0D 

CPB 

RL5,#%7F 

!  CK  FOR  PRNT  CHR  ! 

015C 

7E7E 

015E 

E702 

JR 
DONTP: 

CRITE 

!  YES,  PRINT  ! 

0160 

0C85 

LDB 

@R8,#'. ' 

!  REPLACE  WITH  '.  '  ! 

0162 

2E2E 

RI TE  : 

0164 

A980 

INC 

E8,#l 

0166 

0C85 

LDB 

(?R8,#'*' 

0168 

2A2A 

016A 

D047 

CALR 

CONVB 

!  CONVERT  WORD  ! 

016C 

A9B0 

INC 

Rll,#l 

!  INC  MEM  PTR  ! 

016E 

AB90 

DEC 

R9 

0170 

FE08 

JR 

NZ,  SPACE 

!  NOT  EOL  ! 

0172 

A980 

INC 

R8 

0174 

6EE8 

LD 

0UTPTR(R14) 

,R8    !  SET  PTR  TO  EO-BUF 

| 

0176 

0306 

0178 

D07E 

CALR 

PRNTBF 

!  PRINT  LINE  ! 

017A 

a  07  j 

LDB 

RL7.RH7 

!  RESET  3/SP  CNT  ! 

017C 

ABD0 

DEC 

R13 

017E 

ESDB 

JR 

NZ.NEWL    ! 

START  NEW  LINE  ! 

0180 

9E08 

RET 

!  OR  ELSE  DONE  ! 

!  CHECK  FOR 

POSITION  OF 

SPACE  ! 

SPACE: 

0182 

EE1A 

DBJNZ 

RL7, PUTONE 

!  NO  SPACE  YET  ! 

0184 

69E0 

INC 

0UTPTR'R14) 

!  PUT  SPACE  ! 

0186 

0306 

0188 

A07F 

LDB 

RL7,RH7 

!  RESET  B/SP  CNT  ! 

018A 

ABD0 

DEC 

R13 

018C 

EEE1 

JR 

NZ  ,PUTONE 

!  CONTINUE ! 

018E 

A  980 

INC 

R8 

0190 

6EE8 

LD 

0UTPTR(R14) 

,R8 

0192 

0306 

0194 

D08C 

CALR 

PRNTBF 

!  FINISHED  ! 

0196 

9308 

RET 

!  SUBSTITUTION  MODE,  SINGLE   DISPLAY  ! 

SUBMOD: 

0198 

A1B9 

LD 

R9.R11 

019A 

A1B5 

LD 

R5,R11 

019C 

B062 

CALR 

CONVW 

!  CONVERT  BYTE  ! 

019E 

69E0 

INC 

0UTPTR(R14) 

01A0 

0306 
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AGAIN: 

01A2 

20BD 

LD3 

RL5,(?R11 

01A4 

D064 

CALR 

CONVB                     !    CONVERT    WORE    ! 

01A6 

A9B0 

IMC 

Rll,#l 

01A9 

FF04 

D3JNZ 

RL7, AGAIN 

01AA 

69E0 

INC 

0UTPTR(R14) ,#1            !    INSERT    SPACE 

01AC 

0306 

01AE 

A07F 

LDB 

RL7.RH7                !    RESET    B/SP    CNT    ! 

!    GET    SUBSTITUTION    OH    '0'    OF.    CH    ! 

01B0 

D051 

CALR 

DISPNC 

01B2 

9E07 

RET 

C 

0134 

E6F1 
2F93 

JE 

LD 

Z.SUBMOD              !    GOT    CRt ! 

01B6 

GR9.R3                     !    SUBST.    WORD    ! 

0138 

A07F 

LDB 

RL7.RH7           !    RESET    B/SP    CNT    ! 

01BA 

E8FE 

J? 
EX  ERR: 

SUBMOD 

013C 

34CA 

LDA 

R10,R12f#EROR) 

013E 

00^0* 

01C0 

1EA8 

JP 

@P10 

01C2 

END   DISPLAY 

GLOBAL    BIARG   LABEL 
I1C2  GLOBAL    TRIARG    PROCEDURE 

»J#  *V  -^    »■**  **•  "J*  *^  ■*''•  «•*»  *  '*  ***•  '*-•    » *•*  »'*  >**  *■**  J^  ***  V'  *■'»  ***  *>V  »'*  »'■»  »'*  ***  -'••  -*1*  "J*  -'*  »'"  "■'*  ***  *!*»  *■*■»  »'■•  ■*'*  ^*-»  ••'■*  -'  * 
»,-.  ^,fc  ^^  *,»  *■,•«  ^,-.  /-^  /,»  *,-.  *,<•  *y*  *»"•  *i*  *?*  *p  *f*  t*  *t*  *»*  'i*  'i*  *t*  *|s  *i^  n^  *i*  *r*  i*  *i*  *fi  *v*  ***  *t*  *•*  *i*  *■»*  *t*  *!*■  *i*  *r* 

*  TRIARG:    GETS    NEXT    THREE    ARG    AFTER        * 

*  CMD,    INTO    IMTBUF;    ASCII-TO-        * 

*  HEX    CONVERSION    IS    PERFORMED         * 

*  ON    ADDRESSES. 

*  BIARG:       SEEKS    NEXT   TWO    ARG    IN    THE        * 

*  SAME    MANNER.  * 

*  * 

*  REG  USE:    RETURN      R3   =   3RD    ARG    (TRI  )    * 

*  R4   =    2ND    ARG  * 

*  R5    =    1ST    ARG  * 

*  * 

*  R3   ■    2ND    ARG    (BI )      * 

*  R4   =    1ST    ARG  * 

*  AND    NC    IF    ALL   ARG      * 


SKIP    REST    OF    CMD 
GET    1ST    ARG    ! 


ENTRY 

01C2    D0C7 

CALR 

GETNXT 

j 

01 C 4   D0DD 

CALR 

GETADR 

I 
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01C6 

E608 

JR 

Z,    ERRSTP 

!    CR=ERROR    ! 

01CS 

A135 

LD 

R5,R3 

01CA 

E801 

JR 

GST2ND 

!    TWO    ARGUMENTS    ENTRY 

POINT    ! 

BIARG: 

01CC 

D0CC 

CALR 
GET2ND: 

GETNXT 

01CE 

D0E2 

CALR 

GETADR 

!    GET    NEXT    ARG    ! 

01D0 

E603 

JR 

Z,  ERRSTP 

!    CR=SRROR    ! 

01D2 

A 134 

LD 

R4.P3 

01D4 

D0E5 

CALR 

GETADR 

I    GET    LAST    1?IZ    ! 

01D6 

9E0E 

RET 
ERRSTP: 

NC 

01D8 

8D81 

SETFLG 

C 

1SIGNAL    ERROR! 

01DA 

9E08 

RET 

P1DC 

END    TRIARG 

01DC 


01DC 
01DE 
01E0 
01E2 
01E4 
01E6 
C1E8 
01EA 


D00E 
E70D 
A156 
8346 
E703 
BA51 
0340 
9E08 


01EC  8135 
01EE  AB50 
01F0  8134 
01F2  AB40 
01F4  3A59 
01F6  0340 
01F8   9E08 


GLOBAL 

MOVE      PROCEDURE 

*  MOVE:  MOVES    DATA    IN    MEMORY.                        * 

*  # 

*  REG   USE:    RETURN      R5   =    <ADR>  * 

*  R4   =    <NEW   ADR>  * 

ENTRY 

CALR  TRIARG                     !    GET    THREE    ARGS    ! 

JR  C.WTF                   !    NOT    ENOUGH   ARG    I 

LD  R6.R5 

SUB  R6,R4              !    FIND    MOVE   DIRECT    ! 

JR  C,UP  !    WILL    MOVE  UP ! 

LDIRB  GR4.GR5.R3      !    WILL   MOVE    DOWN    ! 


UP: 


RET 

i 

ADD 
DEC 
ADD 
DEC 

LDDRB 

RET 


R5,R3 

R5 

R4,R3 

R4 

0R4,(?R5,R3       !    MOVE   BLOCK    ! 


01FA    34CA 


WTF: 
LDA 


R10,R12(#EROR) 
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01FC 

0000* 

01FE 

1EA8 

JP 

0200 

END    MOVE 

0200 

GLOBAL    F 

GP.10 


|  :,X  3F  *r-  *,'  V  ^?  V  <v  -v  ^  5,*  ',"  V  J."  -^  ^ '  V  ^  i:  -i:  'i*  *i'  t*  V  V  ^f*  *?  'i'  5i'  V  V  ^  -1'  *r  *r  t  n*  -i-  *r-  V 

*  '.• 

*  FILL:  STRCES    GIVEN    DATA   'a'ORD    IN    ALL   * 

*  SPECIFIED    MEMORY    LOCATIONS.         * 

B  •<*  3JC  *^»  3y»  3J!  3fC  3JC  JJt  3s*  *f*  *^**y«  »-f»33»  *^  33*  3JI  396  *^*  5JC  •¥*  "V*  *"**  *?  ***  *i*  *fi*  *i*  *i*  *v*  3^»  ?,»  ^C  i^  3^  «y«  ^y*  «■,-»  «^C    j 

ENTRY 

0200    34CA             LDA  R10 ,R12 (#EROR ) 
0202    0000* 

0204    D022             CALF  TRIARG                   !    FETCH   THREE    ARGS    ! 

0206    1EA7             JP  C  ,GR10 

0208   A750             BIT  R5  ,#0                     !MUST    3E   EVEN    ATR! 

020A    1EAE             JP  NZ,GR10 

020C    8354             SUB  R4,R5                     ! COMPARE   START    TO! 

!END! 

020E    1EA7             JP  C.GR10 

0210    B341             SRL  R4,#l                     !SET    COUNT! 
0212    FFFF 

0214    2F53             LD  0R5.R3                   !STORE    DATA    AT    START! 

0216    9E06             RET  2                               IONLY    ONE   REO    ! 

0218    A153             LD  P3,?5 

021A    A931             INC  R3,#2                     !NEXT    MEM    LCC    ! 

021C    3B51             LDIR  G>R3,0R5,R4         !    FILL    ALL    ! 
021E    0430 
0220    9S08             RET 
0222                  END   FILL 

END   DISPLAY    HMD 
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6.      ERK   CUIT    MODULE 


Z8000ASM      2.02 

LOC  OBJ    CODE 


STMT   SOURCE    STATEMENT 


1    BRK_QUIT_CMD    MODULE 
SLISTON      $TTY 

I  7f%.  3J»  3JC  2|i  3p  «,.  3JS  *-p  i(B  *p  SfS  3|C  5J*  »*]*  5JC  *^.  5f»  »p  ^-.  *,*  *(■•  2JC  3^  *-|-»  *^»  J|C  3J<»  jp  J^C  -yC  ^£  *t*  ;  J£  3y»  3jC  3J^  *|»  Sy.  ^C  »p 
5j»  t* 


Mb 


BREAK:  COMMAND  TO  RESET  A  BREAK  ADR 
REMOVES  AN  OLD  ONE,  ANr  SETS 
A    NEW    ONE. 

QUIT:    COMMAND    TO    ENTER    THE   TRANSPAR 
MODE    WHERE    ALL    RECEIVED    CHAR 
ARE    ECHOED    BETWEEN    MCZ    SYS 
AND    CONSOLE.    Z8000    FUNCTIONS 
IN    RELAY    CAPACITY   ONLY. 


SYNTAX: 


BREAK 
QUIT 


[<ADR>] 


# 
* 


*5!c^:^:3!e:;;^t*^#^e^t^:^5!:5i;s!5*s!ssJj*^s^>^*>^:'p^c^#5!t^:5^^«5^^Jej;{5!e3!;  J 


CONSTANT 

(    INCLUDE   GLOBAL    CONSTANTS     ) 


EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 


GETNXT 

GETADR 

GMCZAD 

SNDMCZ 

GETBUE 

SNDCHR 

EROR 

SKPBLK 

CONVERT 

GETCHR 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

LABEL 

PROCEDURE 

PROCEDURE 

PROCEDURE 


GLOBAL 
$SECTION 
$REL    0 


BRK   QUIT    PROC 
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0000 


GLOBAL 

ASCHSX 


PROCEDURE 


I,<,  J««|*  V-  V*  -''  -1-  «•'-  -'-  -''  vi-  *'-  •*■'  -:-**-  »•-  •**  */*  «A*  O*  ^-*i-  > 
■v  *i**Y*  *i'  *r*  ***^n  *(*  *t*  *r  *y*  *(»*js  *i**i*  *v*  *i*  i*  i*  *i*  *  **r*  • 


•  «.'»  »•*  »' -  ■''-  -1*  **>  -'■'  •>'*  %**  V'  »'» 
'  "i»  *.»  *i»  "i*  *»"  'i»  *i»»i»T*  *t»  *i" 


JU  »•*  -J*  - 1  - 


*  ASCHSX:    ROUTINE    TO    CONVERT    ONE   LINE   * 

*  CF    ASCII    INPUT    TO    HEX   VALUE    * 


* 
# 

(8-ASCII    CHR    TO   ONE   LWORD)      * 

* 

REG   USE 

:    RETURN      RR2    =   8-ASCII    CHR      * 

# 

AND    C    IF    REC    'Q'         * 

* 

NC,Z    IF    CR              * 

* 

NC.NZ    IF   SPACE    * 

##*:;s###:fc#####**#!}e;j:£5;s  ***:::# sjs^^sjt^esis ##*##* ##«  J 

ENTRY 

0000 

C82A 

LDB 

RL0,#'*' 

0002 

34CA 

LDA 

R10,R12(#SNDCHR) 

0004 

0000* 

0006 

1FA0 

CALL 

@R10                          !    OUTPUT    PROMPT    ! 

0008 

DFE0 

CALF 

GETLNE                     !    GET    LINE    INT3UF    ! 

000A 

8D28 

CLR 

R2 

000C 

8D38 

CL? 

R3                               !    CLR    RETURN    REGS     ! 

000E 

34CA 

LDA 

R10,R12(#SKPBLK) 

0010 

0000* 

0012 

1FA0 

CALL 

OR  10 

0014 

9E06 

RET 

Z                                 !    REC    CR    ! 

0016 

0A09 

CPB 

RL0,#'O' 

0018 

5151 

001A 

FE02 

JR 

NZ.GB3                     !    NOT    '0', ! 

001C 

eE8i 

SETFLG 

C 

001E 

9E08 

RET 

!    RETURN    WITH    '0'    ! 

GE3: 

0020 

34CA 

LDA 

R10,R12(#CONVERT) 

0022 

0000* 

0024 

1FA0 

CALL 

GR10                     !    ASCII    TO   HEX    ! 

0026 

E70E 

JR 

C.ENDERR           !    NON-ASCII    CHR    ! 

0028 

BEB8 

RLDB 

RL0tRL3 

002A 

BE38 

RLDB 

RL0,RH3 

002C 

BEA8 

RLDB 

RL0.RL2 

002E 

BE23 

RLDB 

RL0,RH2              !    ROTATE    NIBBLE    ! 

0030 

34CA 

LDA 

R10,R12(#GSTCHR) 

0032 

0000* 

0034 

1FA0 

CALL 

GR10           !    GET    NEXT    ASCII    CHAR    ! 

0036 

E604 

JP 

Z,NOMORE         !    GOT    NOTHING    ! 

0038 

0A08 

CP3 

RL0,#'    '         !    END    OF    INPUT    ! 

003A 

2020 

003C 

EEF1 

JR 

NZ,G33              !    YES,    ALL   DONE    ! 

003E 

8D83 

RESFLG 

C 

NOMOPE: 
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0040  8D43 

RESFLG 

Z 

0042  9E08 

RET 

ENDERR: 

0044  34CA 

LDA 

R10,R12(#EROR) 

0046  0000* 

0048  1EA8 

JP 

GR10 

004A 

END  ASCHEX 

004J 


004A 
004C 
004E 
0050 
0052 
0054 
0056 
0058 
005A 
005C 
005E 
0060 
0062 
0064 
0066 
0068 
006A 


?6E2 
0000 
2101 
0080 
6FE2 
0304 
DFF7 
E6F5 

34CA 

0000* 

1FA0 
6BE0 
0304 
0A08 
0D0D 
9E08 


GLOBAL 

GETLNE   PROCEDURE 


GETLNE:  REC  ONE  LINE  INPUT  FROM  * 

CONS  (P0RT2),  UP  TO  60-CHH  * 

MAX,  STORE  IN  INTBUF  PLUS  * 

CR,  AND  ECHO  BACK  TO  CONS.  * 

REG  USE:  RETURN   RL0=  1ST  CHR  IN  BUF* 

AND  Z  IF  CHR  =  CR   * 

ENTRY 

LDA 

LD 

LD 


CALR 

JR 

LDA 

CALL 
DEC 

CPB 

RET 
END  GETLNE 


F2,INTBUF(R14)    !  GET  BASE  INTBUF  i 

R1,#INSIZ  !    GET    MAX    SIZE    ! 

INTPTR(R14) ,R2 

COMSOL  !    FILL    LINE    IN    INTBUF! 

Z, ENDERR  !    LINE   TOO    LONG    ! 

R10,R12(#SKPBLK) 


0R10 
INTPTR(R14) 

RL0,#CR 


!  RETURN  TO  START  ! 


!  GOT  1ST  CHR  =  CR  ! 
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006A 


GLOBAL 

CONSOL   PROCEDURE 


006A  6FE2 
006C  0300 

006E  6FE1 
?070  0302 

0072  61E2 
0074  0300 
0076  GDIS 


0078 
307A 
007C 
007E 
0080 
0082 
0084 
0086 


DF.C1 
0A08 
6161 
E704 
0A08 
737*9 
EF01 
A285 


a* 


CONSOL:  STORE  CONS  INPUT  LIN?  IN  * 

3UFFER  ADDRESS  PROVIDED,  * 

PLACE  CR  AT  END  OF  LINE,  * 

AND  PROVIDE  DELETE  CFAR  * 

AND  DELETE  LINE  EDIT  FUNC.  * 

# 

REG  USE:  INPUT   Rl  =  SIZE  OF  3UFFER  * 

R2  =  BUFFER  ADR  * 

RETURN  Rl  =  #  OF  REC  CHR  * 

AND  2  IF  3UF  LIMIT  * 


BUFSIZ(R14) ,R1 

R2,EUFADR(R14) 
P.I 


!  AND  BUF  SIZE  ! 


0088  2E28 


ENTRY 

LD       3UFADR(R14),R2     !  SAVE  BOTH  BUF  ADR  ! 

LD 

HDNG: 
LD 

CLR 
REDLOP: 
CALR 
CPB 

JR 
CPB 

JR 

RESB 
UPCASE: 
LDB 


CCNRD 
RL0,#%61 

C, UPCASE 

RL0,#%7B 


!  GET  CHAR  AMD  ECHO  ! 
!  CONVERT  TO  UPPER  CASE! 

!  NOT  LOWER  CASE  ! 


NC, UPCASE  !  YES  LOWER  CASE  ! 
RL0,#5     !  CONVERT  TO  UPC/SS  ! 

OR2,RL0 


!  PERFORM  EDIT  FUNCTIONS  ON  INPUT  ! 


008A 
008C 
008S 
0090 
0092 
0094 
0096 
009e 
009A 
009C 
009E 
00A0 


0A08 

0808 

FS11 

AB20 

AB10 

4BE2 

0300 

E707 

C820 

34CA 

0000* 

1FA0 


CP3 

JR 
DEC 
DEC 
CP 

JR 

LDB 

LDA 

CALL 


RL0,#3S    !CK  FOR  DSL  CHR  ! 


NZ,CONTCK 

R2,#l 

Rl 

R2,BUFADR(R14) 


!  MO,  CONTINUE  CK  ! 
!  YES,  BACKSPACE  ! 


!  NOT  TOO  FAR  i 


C,DC_OVR 
RL0.S'  ' 
R10,R12(#SNDCHR) 


GP10 


!  BLANK  OUT  BAD  CHR  ! 
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00A2  C808 
00A4  1FA0 
00A6  E8E8 


00/8  C82A 
00AA  34CA 
00AC  0000: 
00AS  1FA0 
00B0  E8E0 


LDB 

CALL 

JR 

DO_OVR: 
LDB 
LDA 

CALL 

JR 


RL0,#BS 

@ai0 

REDLOP 


!  CONTINUE ! 


P.L0f#'*' 

R10,R12(#SNDCHR) 


GR10 
HDNG 


!  SEND  PROMPT  ! 
!  START  AGAIN  ! 


00B2 
00B4 
00B6 
00B8 
00BA 
00BC 
00BE 
00C2 
00C2 
00C4 
00C6 
00C8 


0A08 
7F7F 
E609 
A  920 
A910 
0A08 
0D0D 
E60E 
4BE1 
0302 
EED8 
9E06 


00CA  C85E 
00CC  34CA 
00CE  0000* 
00D0  1FA0 
00D2  DFF5 
00D4  C820 
00D6  34CA 
00D8  0000* 
00DA  1FA0 
00DC  E8CA 


CONTCK: 
CPB 

JR 
INC 
INC 
CPB 

J? 
CP 

JR 
RET 

DELINE: 
LDB 
LDA 

CALL 
CALR 
LDB 
LDA 

CALL 
JR 


RL0,#LINDEL    !  CK  FOR  LINE  DEL  ! 
!  fES ! 


ZtDELINE 
R2,#l 

Rl 

RL0f#CR 


!  CK  FOR  CR  ! 


Z,ADDLF       !  YES,  ADD  LF  CHR  ! 
R1,BUFSIZ(R14)     !  SIZE  CK  ! 

NZ.REDLOP     !  OF,  GET  NFXT  CHE  I 

Z  !  TOO  LARGS,  ERROR  ! 


RL0,#%5E 

R10,R12(#SNDCHR)  !  SND  LINE  DEL  ! 


Git  10 

NEWLNE 

F.  L  0 ,  #  '    ' 

R10,'r12(*SNDCHR 


!    START    NEW    LIME    ! 


0R10 
HDNG 


!  SND  CHR  ! 
!  START  AGAIN  ! 


00DE  C80A 
00E0  34CA 
00E2  0000* 
00E4  1FA0 
00E6  8D43 
00E8  9E08 
00EA 


ADDLF: 
LDB 
LDA 

CALL 
RESFLG 
RET 
END    CONSOL 


RL0   #LF 
R10!r12(#SNDCHR) 


OR  10 
Z 


!    SEND   LF    CER    ! 
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00EA 


GLOBAL 

NEWLNE      PROCEDURE 

f  ^t  *r  yfi  ifi  i,-  ~.~fi  5,c  *|t  j,c  *,i  s,»  5,c  ;^  *,*  j|i  ;,i  .*,■.  5jc  *-,*  sjx  »,i  *,c  3js  3QC  .^  j,i  j,*  *,c  ;ji  ^c  ^s  s,i  i,j ;,;  i^  ;ti  iii  «.,t ;,~  ^c 


*      NEWLNE:    SENDS    CR    AND    LF   TO    CONSOLE      * 


ENTRY 

00FA 

34CA 

LDA 

R10.R12 

00EC 

0000* 

00EE 

C80D 

LDB 

RL0,#CR 

£0F0 

1FA0 

CALL 

0>R  10 

00F2 

C80A 

LDB 

RL0,#LF 

00F4 

1FA0 

CALL 

@R10 

00F6 

9Fea 

RET 

00F8 

END    NEWLNE 

!    ADR    SNDCHR    IN    R10    ! 


00F3 


GLOBAL 

CONRD      PROCEDURE 

I  «y*  »y.  SQC  1^  1»  *i»  'i»  5J»  »"p  »!-■  <£   -,»  ^*  - ,"  3J»  *,•  *y»  -^  «•,■»  5^t  *p  «yC  »-,v  ..,*  *,*  *^»  vy*  XS  3<*  «y*  T*  *»*  *¥♦  *T*  *T*  *V*  \*  "*>'  '1*  *l* 


*  CONRD:    GETS    CHAR    FROM    CONSOLE    INPUT   * 

*  BUFFER    (INTBUF)    AND    ECHOS  * 

*  BACK    TO    CONSOLE.    LOOPS   UNTIL    * 

*  RECEIVE    CHARACTER.  * 

*  * 

*  REG   USE:    RETURN      RL0=    CRR  * 

*  AND    Z    IF    CHR=CR  * 

*  * 

-*»  *A»  ***  ».■«  ■»!*  o»  <j*  V'  V*  •■'■*  V'  *■'* ***  *■'*  ***  **■*  ***  »■'*  *•'*  »'*  *V  ■»**  »V  *•'*  *'*  *■'*  *>'*  ***  V*  *'•'  ^''  "J*  "»'**  ** '  ***  *"•  ■*"*  *"*  *■'*  *'■'    f 
.-,-  *|»  *-|*  *!•■  J,»  J|*  +fi  *,»  Jp  ^(*  ?,»  «^*  *,■•  ^|*  «y*  *i"  *I*  *|*  if*  t*  IP  *P  1     t"  *P  *P  ***  ***  *l*  ^P  ^*  *Y*  T*  ^*  *^  *i*  *^  *!"*  ***  ^*    I 


ENTRY 

00F8 

61E0 

TC:LD 

00FA 

030E 

00FC 

4BE0 

C? 

00FE 

030C 

0100 

E6FB 

JR 

0102 

93F2 

PUSH 

0104 

34CA 

LDA 

0106 

0000* 

0108 

1FA0 

CALL 

010A 

6FE0 

LD 

010C 

030E 

010E 

2028 

LDB 

0110 

97F2 

POP 
!    CHECK 

0112 

0B09 

CP 

0114 

AAAA 

0116 

E603 

JR 

0118 

34CA 

LDA 

R0,GETOUT(R14) 
R0,NXTPTR(R14) 


!    COMPARE    GET    AND    ! 


!    PUT    PTRS     ! 

Z,TC  !    REC    NOTHING ! 

@R15,R2 

ri0,ri2(#getbuf; 

or 10  !  get  rngbuf  a  dp   ! 

getout(r14),r0 

f.l0,@r2  !  sto  chr  for  rtn  ! 

R2,0R15 
CHECK   FOR    NON-DISPLAY    FROM    LCAD_FlLE    ! 
R9,#%AAAA 

ZtNO_DISPLAY 
R10,R12(#SNDCHF) 
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011A    0000* 
011C    1FA0 


CALL 


GR10 


NO_DISPLAY: 
011F.    9E06  RET 

0120  END    CCNRD 


0120 


0120 
0122 
0124 
0126 
0128 
012A 
012C 
012E 
0130 
0132 
0134 
0136 
0138 
013  A 
013C 
013E 


61E2 

0316 

61  El 

0314 

2F21 

4DE8 

0316 

4DE8 

0314 

4DE5 

030A 

0001 

34CA 

0000* 

1FA0 

9E06 


GLOBAL 

BREAK      PROCEDURE 

Is*'  i!i  A  A  s!e  i!-*  A  4:  ^  ^t  s1*  **-  sf*  ab  A  *'*  ***  sfe  J*  ***  •  '*  «•*■*  -•-  A  ■*'*  *'-  4e  ***  -'*  *V  ***  *■•*  sfe  ***  rfe  *■*  a*-  "-1-  •**  *•* 
9p  -,~  ^*  J,-  -,-  -p  ,,*.  -r  -,.  ,,C  J,%  „,,  ^»  '.*  V  *|*  *)t  *,•»  -|»  rf>  »,»  *,-  *,*  -r  *,»  -,,  -■,%  *,»  *,-.  3,5  -,»  0|S  *,■»  *,»  *,*  *■,»  3^  ^,»  ^,  *,» 

*  BREAK:    CLEARS    PPEVIOUSLY    SET    BREAK      * 

*  POINT    BY   REPLACING    UN  IMP.  * 

*  INSTRUCTION    (0E00)    WITH   ORG  * 

*  INSTRUCTION    FOR   THE    ADR,    AND  * 

*  SETS    A    NEW    BREAK    POINT    IF  * 

*  SPECIFIED    (<ADR>).  * 

$##$$$$$$$$$$?!<#$$$$$$$  J 

ENTRY 

!    CLEAR    PREVIOUS    BREAK    POINT    ! 
LD 


LD 

LD 
CLR 

CLR 

LD 

LDA 

CALL 

RET 


R2,BRKADR(R14) 

R1,3RKSTR(R14) 

(?R2,R1  !    RESTORE    INST    ! 

BRKADR(R14) 


!    RESET    CNT    TO    1    ! 


BRKSTR(R14) 
BRKCNT(R14) ,#1 

R10,R12(#GETNXT) 


G>P10  !    GET    NEXT    ARGUMENT    ! 

Z  !    NO    NEW    ADDRESS    ! 


!    GET    NEW    BREAK    ADDPESS    ! 


0140    34CA 
0142    0000* 
0144    1FA0 
0146    A132 
0148   E607 


014A    34CA 
014C    0000; 
014E    1FA0 
0150    8D34 


LDA 

CALL 

LD 

JR 


R10,R12(#GETADR) 


0R10 

R2,R3 

ZfGB4 


!    GET    3RK    ADR    ! 
!    SAVE    3PK    4.DR    ! 

!    NO   BRKCNT. . .! 


GET    NEW   BREAK   COUNT    ! 
LDA  R10,R12(#GETADR) 


CALL 
TEST 


0R10 
R3 


!    GET    COUNT    ! 

!    TEST    FOR   ZEFO    ! 
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0152    E602 


0154    6FE3 
0156    030A 


NCZ: 

ID 


JR  Z,GE4  !    BRKCNT    =   1     ! 

BRKCNT(R14),R3       ?    SET   BRKCNT    ! 


0158 

A320 

RES 

015A 

6FE2 

LD 

015C 

0316 

015F 

2121 

LD 

0160 

6FE1 

LD 

0162 

0314 

0164 

61  El 

LD 

0166 

0308 

0168 

2F21 

LD 
!    CHECK    F 

016£ 

2121 

LD 

016C 

4BE1 

CP 

016S 

0308 

0170 

9E06 

RET 

0172 

4DE5 

LD 

0174 

030A 

0176 

0001 

0178 

4DE8 

CLR 

017A 

0316 

?17C 

4DE8 

CLR 

017E 

0314 

0180 

34CA 

LDA 

0182 

0000* 

0184 

1EA8 

JP 

0186 

END    BREAK 

!    SET    UNIMPLEMENTED    INSTRUCTION    IN    BREAK    «DR    ! 
GB4: 

R2,#0  !    MAKE    EVEN    ADR    ! 

BRKADR(R14) ,R2 

Rl  ,@R2 

BRKSTR(R14),R1       !    SAVE    INST    ! 

Rl  fUNIMP(R14) 

GR2.R1  !    PLACE    '0E00'    ! 

WRITE    TO    EXISTING    MEMORY    ! 

Rl  ,G>R2 

Rl  ,UNIMP(R14) 


E?KCNT(R14)t#l 


!    MEMORY    NOT    THERE    ! 


0186 


0186  4DE8 
0188  0310 
018A  4DE8 
018C    0312 


BSKADR(R14) 
BRKSTR(R14) 
R10,R12(#EROR) 

OR10  !    GOT   WRONG    BRK    PNT    ! 


GLOBAL 

QUIT      PROCEDURE 

I«ju  o~  >t-  -.' .  <Ju  V*  *'•  - V  Vrf  "■'••  »■**  Vr  ■  *•*  * •*  V*  ••'■*  * ' *  »■' *  V*  »-V  * '*  •»'"  ***  •", '  *■*■'  *■'*  V*  ***  "■**   *^-*  *■  **  *'*  *•'<•  *'*  ***  »'■*  ■■  ■*  » '*  ***  ■* ' •* 
*F  *r»*c  V  **»  ■v**v»»n  7i»*r  »i*  *r  n*  *i»*ir  n*Tr*  3i**r  *i*  *i»*i»*i*  «vo*  *o*r  nr  *»*  *«»*»*  *i*  t-  *i*  *F  *cn»  *»*  t*  i*- 

*  # 

*  QUIT:    TRANSMITS    ALL    CHR    AND    CR    FROM    * 

*  CONS    TO   MCZJ    THEN   RELAYS    ALL      * 

*  TO    CONS    FROM   MCZJ    AND    ETC.  * 

*  * 

•J*  u*  •.»-  *)«  »»*  *t.  %t-  •.•***•*  »■'-  iU  •J**.!*  *'-*>-  »•*  •*>.#  «•*  «l*«l*  ht*«J«  j^  »'^  tJ+  .1^  -  '*  «<,  ,ju  *>«  -y  v»»  -,t»  ol/  >'*  y*  "i1-  -L  *■'*  "^    t 

*i*  *jt  n*  ,  t»  .,»  ^»  ^-*  rt%  ^»  *i»  ^»  *|*  5|*  *i'  *i»  «y»  *(*  *t-»  *^  *y»  »|»  ^*  ^i»  *j*  *r*  *y*  n*  *«*  *i*  *i*  nP  "**  *»*  *P  o*  m*  *»*  *p  *t*  *t*  I 

ENTRY 

CLR  MCZPUT(R14) 


CLR 


MCZGET(R14) 
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018E  65E0 
0190  031C 


0192  61E0 
0194  030E 
0196  4BE0 
019£  030C 
019A  E60A 


019C 
019E 
01A0 
01A2 
01A4 
01A6 
01A8 
01AA 
01  AC 
01AE 


01B0 
01B2 
01B4 
01B6 
01B8 
01BA 
01BC 
01BE 
01C0 
01C2 
01C4 
01C6 
01C8 
01CA 
01CC 
01CE 


34CA 

0000* 

1FA0 

6FE0 

030E 

2028 

34CA 
0000* 

1EA0 
EEE1 


61E0 
0312 
4BE0 
0310 
E6SC 
34 C  A 
0000* 

1FA0 
6FE0 
0312 
2028 
34CA 
0000* 

1FA0 
E8F1 


SET 


MFLAGS(R14)f#TRPMDE   !  RESET  EUF  PTRS 
!  AND  ENTER  TRANSPARENT  MODE  ! 


!  CONSOLE  RECEIVE  ROUTINE  ! 
PORTB  * 

LD       R0,GETOUT(R14) 


CP 
JR 


R0,NXTPTR(R14)    !  CK  EOR  CONS  INPUT 
Z,  PORTA      !  NO,  CK  MCZ ! 


!    PROCESS    CONSOLE    INPUT    ! 
LDA  R10,R12(#GETBUF 


CALL 
LD 

LDB 
LDA 

CALL 

JR 


C?R10  !    GET    RNGBUF    ADR    ! 

GET0UT(R14) ,R0       !    SET    BEGIN    PTR    ! 

RL0.GR2 

R10,R12(#SNDMCZ) 

(?R10  !    ECHO    CHR   TO    MCZ    ! 

NZ, PORTB         !    CONTINUE  UNTIL    CR    ! 


!    MCZ    RECEIVE    ROUTINE    ! 
PORTA: 


LD 

CP 

JR 
LDA 

CALL 
LD 

LDB 
LDA 

CALL 
JR 
END    QUIT 


R0,MCZGET(R14) 
R0,MCZPUT(R14) 


!  CK  FCR  MCZ  INPUT  ! 


Z, PORTB       !  NO,  CK  CONSOLE. .. ! 
R10tR12(#GMCZAD) 

OR10  !    GET    MCZBUF    ADR    ! 

MCZGET(R14) ,R0 

RL0tGR2         !    GST    CHAR    FROM   MCZBUF    ! 
R10,R12(#SNDCHR) 


GR10 

PORTA 


!  OUTPUT  CHR  TO  CONSOLE  ! 
!  CONTINUE  TIL  EMPTY  ! 


END  BRK  QUIT  CMD 
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7.       DE3UG    MODULE 


Z8000ASM      2.02 
LOC  OBJ    CODE 


STMT   SOURCE    STATEMENT 


1    DEBUG_CMD    MODULE 
$LISTCM      $TTY 

|  5JS  »i» 3JC  iff*  jhfi  *|»  3j*  3J»  »,■»  *^«  ",C  *,*  *J»  *,*  3fS  3^»  3fC  *,C  »y£  «^»  3J£  *-,*  ^,£  ?,-»  JJ£  5^»  >^  5,%  »-|C  *,«  ^«.  ijt  ^-.  J,*  ,,*  3J—  .,*  rf*  3^-.  ^» 


JUMP    CMD:    CHANGES    USER    PC    VALUE    AND 
BEGINS    PROGRAM    EXECUTION 

AT    THAT    POINT    <PC> . 


*  GO   CMD: 

* 

*  NEXT    CMD:    STEPS    THROUGH    PROGRAM 

*  EXECUTION    ONE    INST.    AT    A 


Sk 


BEGINS    PROGRAM    EXECUTION 
AT    THE    CURRENT   USER   PC . 


* 

TIME   OR    IN    MULTIPLES    <N>. 

* 

* 

* 

*      SYNTAX: 

JUMP   <PC> 

* 

GO 

* 

* 

NEXT    [<N>] 

•A* 

* 

* 

«L  -,'***•  JU  v-  *•'*  •'c  *V  *"*  **-  »'»  -"*  **<»  *■'*  »**  *•*  -,'*  «i#V'  ^'-  -'-  vi*  v**  *.U  V-  »****<•  -■■-  JU  *'<  V*  ■«'*  V"  "'<•  «■*■*  ***  *'"  -J-*  » 
i*  ■^•P  -»*  n*  T  *r  *r  n*  *r*  *r  *c *r»  -vi*  *r* nr  *i*  **•  *»*  *v*r  *i»  *»»  *?■  *r*«"r  *i**?  T*n*  *r  *r»»^  -nr  n*  »i&  t»- 

is*l 

CONSTANT 

RXR                 : 

:=      2 

TXR                : 

=      0 

PAS 

=      7 

P OR TAD         ! 

:=      %FFD9 

P0RT3D 

:=      %EFE1 

PORTAC         : 

=      %FFDB 

PORTBC 

:=      %FFE3 

IDPCRT 

:=      %FFCB 

ICPORT 

:=      %FFC9 

TCMD 

%FFD2 

TDTA         := 

%FED0 

BUS_LOCK    :=%FFE9 
BUS    UNLOCK    :=%FFF8 


VINTR 
VIBIT 
ESCAPE 
BS 


=      %(2)0001000000300000 
=      12 


%1B 


■      %08 
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LINTEL 

:=  %7Y 

CR        : 

=   %0D 

LF       : 

=   %0A 

TXOFCH 

:=  %13 

TXONCH    : 

=   %11 

INSIZ 

:=   128 

!  IMT3UF  SIZE 

OUTSIZ 

:=   128 

!  OUTBUF  SIZE 

RESIZ 

.=   256 

!  RING  BUFFER 

!  BIT  POSITIONS  IN  MONITOR  FLAG  WORD  ! 

TEPMDE 

=   0 

ISTOP 

=   1 

OSTOP     : 

=   2 

SNDMDE 

'=   3 

LDMDE     : 

=   4 

ESC       i 

•=   5 

TXMSK     : 

=  %6 

INTERNAL 

$SECTION  DATi 

i_DEC 

$ABS  0 

0000 

INTBUF    ARRAY  [128 

BYTE] 

0080 

0UT3UF    ARRAY  [128 

BYTE] 

0100 

PNGBUF 

LRRAY  [256 

BYTE] 

0200 

MCZBUF    ARRAY  [256  BYTE] 

0300 

BUFADR   > 

(ORD 

0302 

BUFSIZ    WORD 

0304 

INTPTR 

WORD 

0306 

OUTPTR   WORD 

0308 

UN I MP     WORD 

030A 

BRKCNT    WORD 

030C 

NXTPTR    WORD 

030E 

GETOUT    WORD 

0310 

MCZPUT    WORD 

0312 

MCZGET    WORD 

0314 

BRKSTR    WORD 

0316 

BRKADR    WORD 

0318 

TMPSP     WORD 

03U 

TMPFCW    WORD 

031C 

MFLAGS    WORD 

!  USER  REGIS 

JTER  STORAGE  ! 

031E 

R0       WORD 

SIZE    ! 
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0320 

Rl 

WORD 

0322 

R2 

WORD 

0321 

R3 

WORD 

0326 

R4 

WORD 

0328 

R5 

WORD 

032A 

B6 

WORD 

032C 

R7 

WORD 

032E 

R8 

WORD 

0330 

R9 

WORD 

0332 

R10 

WORD 

0334 

Rll 

WORD 

0336 

R12 

WORD 

0338 

R13 

WORD 

033  A 

R14~ 

WORD 

033C 

R15~ 

WORD 

033E 

RPC 

WORD 

0340 

REC_ 

WORD 

0342 

RETRY 

WORD 

0344 

ADR_STR 
INTERNAL 

WORD 

$SECTION  PSA  DATA 

$A3S  0 

0000 

PSA    RECOFD 

DATA  AREA 

WORD 

CODE  AREA 

WORD 

UN  IMP  INST 

LONG 

PRIY  INST 

LONG 

SYSTEM  CALL 

LONG 

SEG  TRAP 

LONG 

NMI  INT 

LONG 

NVI'INT 

LONG 

VEC  FCW 

WORD 

VEC  PC 
1   " 

ARRAY 

EXTERNAL 

GETNXT 

PROCEDURE 

GETADR 

PROCEDURE 

RGHDB1 

PROCEDURE 

RGHDR2 

PROCEDURE 

PRREG1 

PROCEDURE 

PRREG2 

PROCEDURE 

EROR 

LABEL 

EXEC 

PROCEDURE 

$SECTION  DEBUG  PROC 

$REL  0 

[200      WORD] 
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0000 


GLOBAL 

DEBUG    ENTRY      PROCEDURE 

I   »y*  •■■,■%  3|w  3,C  ^>  3\-  ^,-  *,.  *,-»  3,*  3^£  3JC  »(i  v^TJk  5j*  rf  5J»  *!»  3,*  3J»  3^.  3 


.  a-  -i*  *j-  *•,  v#  a* 


*s!c#:fcs{:sjs  ####*«#:«:: 


0000 

93F1 

PUSH 

0002 

93FE 

PUSH 

0004 

7D15 

LDCTL 

0006 

211E 

LD 

0009 

6FEC 

LD 

000  A 

0336 

000C 

611C 

LD 

000E 

0002 

0010 

97F1 

POP 

0012 

6FE1 

LD 

0014 

033A 

0016 

97F1 

POP 

0018 

9E0S 

RET 

*  DEBUG_ENTRY:    RESTORES    DMONITOR    R12      * 

*  AND    R14    (CODE    AND   DATA)* 

*  REGISTERS    FOR    INTERRUPT* 

*  ENTRIES.  * 

*t*  *r 

•J'  fc,-»  *■' »  -' »  *•**  «V  *-V  ■  V  **•*  "■'■*  *-'*  *V  *■■'■•*  *•' -  »**  -'*  *i*  *•'■'  **-  *■'*  ** '  *'•*  ■+'*  "■'*  V*  •*,h*  ■**■*  *■''  ***  *' '  *-' *  -1  -  V*  "'■*  V'  ****  *•»    , ' *  *-**  -1*    t 

n*  *i*»f*  *p *»*  *p ^i* it i*  *r  *»*  ^"V  *r*i*  *v  n*  *i**i**i*  '••'**  *r*  *oh*  *r  *i»  *t**v*  *i*  *r*  ■Y»*?*rn*  n^  *p  *ir*Y*  *r*  1 

ENTRY 

GR15.R1 

GR15.R14 

Pl,PSAPOFF  !    GET    PSA    BASE    ! 

R14.0R1  !    RESTORE    DATA   BASE    ! 

R12    (R14),R12      !    SAVE   USER    R12    ! 


"12, CODE_AREA(Rl) 

R1.GR15 

R14    (R14)  ,R1 


!    CODE    ?ASE    ! 


001A 


R1.0R15 
END    :  -    ENTRY 


001A 


GLOBAL 

SAVREG         PROCEDURE 

*  # 

*  SAVREG:    SAVES    USER    PROGRAM    STATUS         * 

*  AND    REGS    1-14    CONTENTS.  * 

***  ^t  ¥e  .'«»u»i.*>,J.j..t,j/s o-.i-  Jb  JU  .O  *l*  •**  ,i,  j-  »o  u-  *«*  .*.  .      j.  *.'-  ^«-  •j,  ,'.  J-  J.  Tfryiriflr  >'-  v',  ,■-    • 

i*  n*^r  *r  ^  *«*  *r*  *i*  n*  *P  ^  *i*  *»*  I'T'rv^'TT  *i"*k'»m*  *v  "J*  ****»»  "i*  7t* -^  l*  *i*  *ff  *i*  i*  T>  i"  n*  i*  V   T 

ENTRY 


001A    6FEF 

LD 

TMPSP(R14),R15 

j 

RTN    ADR    ! 

001C    0318 

001E   31F0 

LD 

R0,R15(#4) 

!SAVE: 

j 

0020    0004 

0022    6FE0 

LD 

RFC_(R14)  ,R0 

!    USER    FCW    ! 

0024    0340 

0026   31F0 

LD 

R0,R15(#6) 

0028   0006 

002A    6FE0 

LD 

RPC_(R14) ,R0 

!    USER    PC    ! 

302C    033S 

!    SAVE 

Rl 

-   R14    ! 

002E   76EF 

LDA 

R15,R1_(R14) 

0030    0320 
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2032 

1CF9 

LDM 

0034 

010* 

0036 

61 E? 

LD 

0038 

0318 

003* 

6FED 

LD 

003C 

0336 

003E 

9E08 

RET 

0040 

END    SAVREG 

G>R15,R1,#11         !    STORE   REGS    ! 
rl5fTMPSP(?.li)  !    RESTOFE    SP    ! 

R13    (R14) ,H13 


0040 


0040 

6FEF 

LD 

0042 

0318 

0044 

61EF 

LD 

0046 

033C 

0048 

61E1 

LP 

004A 

0340 

004C 

33F1 

LD 

004E 

0002 

0050 

61E1 

LD 

0052 

033E 

0054 

33F1 

LD 

0056 

0004 

!RESTORE    H 

0058 

34EF 

LDA 

005A 

031E 

005C 

1CF1 

LDM 

005E 

000B 

0060 

61ED 

LD 

0062 

0338 

0064 

61 EF 

LD 

0066 

0313 

0068 

9E08 

RET 

006A 

END   RSSTOR 

GLOEAL 

RESTOR      PROCEDURE 

'I*  *Tp 

*  RESTOR:    RESTORES    USER   PROGRAM   STATUS* 

*  AND    REGS    0-11,13    CONTENTS.      * 

*  * 

***  *V  ^tf  *'*  *"*  *tt  ^**  *•'  ***  •*''  ***  **■•  *■**  ***  **•  »**  ***  ^'*  ***  +**  *'*  **■»  »•*  •**  V*  *>V  >'*  *•■•  ***  **»  »'*  V*  •>**  »V  »**  »V  *'*  **-  **»  *J*»  f 
i*  *o  n*  *r  w*  *r  i*  t  *p  i*  *v*  *p  -r  t*  *r  i*  n*  "i-  ***  i*  *i*  *P  *•*  *»"*  *i*  *.•  *i*  *»■*  *v*  '■*  *r  *»*  *p  t  *»*  *<*  *>*  *v  n»  j 

ENTRY 

TMPSP(R14),R15 


!    SAVE    STK    PTR    ! 
!    SET    USER    SP    ! 
!    RESTORE:  ! 

!    USER    FCW    ! 


R15,R15_(R14) 
Rl  ,RFCJR14) 
R15{#2),R1 

R1,R?C_(R14) 

R15(#4),R1         !    USER    PC    ! 

-    R15    ! 
R15,R14'#R0_) 

R0,(?R15,#12         !    FESTORE   REGS    ' 

R13,R13_(R14) 

R15,TMPSP(R14)  !    RESTORE    SP    ! 
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006A 


006A 
006C 
006E 
0070 
0072 
0074 
0076 
007S 
007A 
007C 

007E 
0080 
0082 
0084 

0066 
0088 
008  A 
008C 
008E 
0090 
0092 
0094 
0096 
0098 
009A 


34CA 
0000* 

1FA0 

E616 

34CA 

0000* 

1FA0 

A330 

6EE3 

033E 

61E3 
033E 
4BE3 
0316 
E665 
D025 
61EF 
033C 
61EC 
0336 
93E1 
61E1 
033A 
A11E 
97F1 


GLOBAL 

GO    LABEL 

JUMP  PROCEDURE 

*  JUMP:  TRANSFERS  PROGRAM  EXECUTION    * 

*  TO  LOCATION  SPECIFIED  IN  CMC  * 

*  GO:    BEGIN  EXECUTION  AT  CURRENT 

*  USER  PC  VALUE.  * 

ENTRY 

LDA      R10,R12(#GETNXT) 


CALL 

JR 

LDA 

CALL 

RES 

LD 


G»R10  !  GET  MEXT  ARG  ! 

ZfSETERR       !  NO  ARGS  ! 
R10,R12(#GETADR) 


0^10 

R3,#0 

RFC  (R14),R3 


!  RTN  JMP  ADR  IN  R3  ! 
!  SET  TO  EVEN  ADR  ! 

!  SET  NEW  PC  VALUE 


1GLOEAL  GO  CMD  ! 

GO:LD       R3,RPC_(R14) 


009C  7B00 


009E  34CA 
00A0  0000* 
00A2  IE AS 

00A4 


CP 

JR 

CALR 

LD 

LD 

PUSH 
LD 

LD 

POP 

IRET 

SETERR: 
LDA 

JP 

END  JUMP 


!  PC  =  BRKADR?  ! 

!  YES  TAKE  INT.  ! 
!  NO,  RESTORE  REGS  ! 
!  RESTORE  SP  ! 


R3, BRKADR 'R14) 

Z,  BROOD 

RESTOR 
R15,R15_(R14) 

R12,R12_(R14) 

OR15.R1 
R1,R14_(R14) 

R14tRl 
Rl f@R15 


!  BEGIN  EXEC  BY  IRET  ! 
R10,R12(#EROR) 


PR  10 


!  RETURN  TO  EXEC  ! 
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00A4 


GLOBAL 

BRKIFD 


PROCEDURE 


!ju  <u*yu  -  *  o*  .'-  o,  -^  v-  a*  o-  «t*«ju  s  -  -u-  a*  .»*  »i#»w 
n*  *»•  *i*  'i*  *i*  n"  i*  *i-  *.*  *r  ***  *i-  i-  *r  *•■*  *v  *v  *r  »i* 


•  jJm  -J'  *t* 


00A4 
00A6 
00A8 
00  4  A 
00  AC 
00AE 
00B0 
00B2 
0034 
00B6 

00B8 
00BA 
00BC 

00BE 
00C0 
00C2 
00C4 
00C6 


93F2 
93F1 
93FE 
7D15 
211E 
61S2 
0316 
61E1 
0308 
2F21 

67EC 
031 A 

EE05 

31F2 

0008 
A32C 
33E2 

0008 


00C8  97FE 
30CA  97F1 
00CC  97F2 
00CE  7B00 
00D0 


*  BPKIHD:    BTEAK    INTERRUPT    HANDLER  * 

*  WHICH    EXECUTES    SINGLE  USER  * 

*  INST,    PUTS   BACK   BREAK    INST  * 

*  (UNIMPLEMENTED    INST.),    AND  * 

*  RESTORES    USER    FCW  . 

"J*  -''  ~^t  "**  ■***  SB*  -'-*  **-  "'•*  *■'-  ^V  *"■»  ***   V-  *V  -*"  ***  ~**  "i1-  *^»  *'«■  *•*  •>'*  V*  *■*-  "-1*  -'"  "'■   -1*  *•'-  »'*  V*  ^  V*  •*»  *V  ■•'••  V*  •*-->-! 

ENTRY 
PUSH 
PUSH 
PUSH 
LDCTL 
LD 
LD 

LD 

LD 

3IT 

JR 

LD 


RES 
LD 


ALTHRU: 


!    SAVE    SYS    REG    1-2    ! 
!    DATA    AREA    ADR    ! 


GR15,R2 

(?R15,R1 

GR15,R14 

?1,PSAP0FF 

R14.0R1 

R2,BRKADR(R14) 

RlfUNIMP(R14) 

@R2,R1  !    STORE   0NIMP(R14)    INST    ! 

!    FOR   BPEAK    SIGNAL    ! 
TMPFCW(R14) ,#VIBIT    ! CK   VI    EN    ! 

NZ, ALTHRU  !    YES,    FINISHED    ! 

R2,R15(#8)         !    NO, ! 

R2,#VIBIT  !     . .30    EN    71     ! 

R15(#8),R2         !    AND    PUT    BACK    ! 


!    RESTORE   USER    R12    AND   R14    ! 


POP 

POP 
POP 

I  RET 
END   BRKIHD 


R14,0R15 
Rl  ,GR15 
R2.9R15 


!    RESTORE   REGS    ! 
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00D0 


GLOBAL 

SSINT      PROCEDURE 

1-»#  */*  *i-  *V  %te   *.»*  **»  *.»»  •.!»  *•*  -« *  -I*  .,'..  »•-  »/*  ->  -   *.«*  ».»>  *•*  »•*  »'»  %»*  vi>  -L-  »•*  »<»  «»*  d*  *»*  *»#  »'»  J  *  Kb  *J»  *«*•  *Ar  **»  o*  »>»  «J* 
'i*  *»»••**  'Is  *i*  *.-*»*  *i*  *r»  »r  v  *f*p  '.-*r  *■*  *i*  *r  *p  5i*  *r  *«**»*  ^r*  't*  -vy*  *i6*P  n*^p  *r  *i**v  *i-  *F*r*  i*  *•*  -»* 


00D0 
00D2 
00D4 
00D6 
00D8 
00DA 
00DC 
00DE 
00E0 
00E2 
00E4 
00E6 
00E6 
00EA 
00EC 
00EE 


D069 
6FEF 
033C 
6FE0 
031E 
D061 
61 E2 
0316 
61E1 
0308 
2F21 
67EC 
031 A 
EE02 
63EC 
0340 


*  SSINT:    SINGLE    STEP    INT    HANDLER    FOE  * 

*  USE   WITH    NEXT    CMD.    ALLOWS  * 

*  SINGLE    INST   EXECUTION.  * 

*  # 

ENTRY 
CALR 
LD 

LD 

CALR 
LD 


LD 

LD 

BIT 

JR 
RES 


DEBUG_ENTRY 
R15_(R14) ,H15 

R0_(R14),F0 

SAVREG  !    SAVE   ALL   REGS    ! 

R2,BRKADR(R14) 

R1,UNIMP(R14) 

(?R2,R1  !    RESTORE   UNIMP(R14)    INST    ! 

TMPFCW(R14) ,#VI3IT 

NZ.DWN  !    VI    EN    ! 

RFC    (R14),#VIBIT 


00F0 
00F2 
00  F4 
00F6 
00F8 
00FA 
00FC 
00FE 
0100 
0102 
0104 
0106 
0108 
010A 
010C 
010E 
0110 
0112 
0114 


34CA 

0000* 

1FA0 

34CA 

0000* 

1FA0 

6BE0 

030A 

EE1B 

4D05 

030A 

0001 

4DE8 

031C 

7C05 

34CA 

0000* 

1EA8 


DWN: 
LDA 

CALL 
LD* 

CALL 
DEC 

JR 
LD 


CLR 

EI 
LDA 

JP 

SSINT 


R10,R12(#PRREG1) 

GR10  !    OUTPUT   REG    CONTENT! 

R10,R12(#PRREG2) 

@R10 

3RKCNT(R14),#1 


NZ  ,SINST 
BRKCNT,#1 


!    CONTINUE    SS    ! 
!    RESET    NEXT    CNT    ! 


MFLAGS(R14) 

VI 
R10,R12(#EXEC) 

GR10 


END 
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0114 


0114: 

0116 
0118' 
011A 
011C 
011E 
0120 
0122 
0124 
0126 
0128 
012A 
012C 
012E 
0130 
0132 
0134 
£136 


34CA 

0000* 

1FA0 
E605 
34CA 

0000* 

1FA0 
8D34 
EE01 
BD31 
6FE3 
030A 

34CA 
0000* 

1FA0 
34CA 
0000* 
1EA0 


GLOBAL 
ERKROU 
SIiMST 
NEXT 


LABEL 
LABEL 
PROCEDURE 


Iv*  5t  y*  **■«■  *v  *■**  *>»  **-  v*  o*  iV  «v  ***  »** ■***  ***  v*  *•*  •»•*  *>*  »**  %**  *v  «*v  *,v  ■*'*  *■'■*  V*  *t+  *"*  ***  •***  •*•  *•*  ^  «■•*  ***  ***  *'<•  »■- 
vtt  *i*  nr  *v* ***  *i*  t* •■»*  *n  ^ i*  ***  Jtf»  n*  *r»  *v  *»*  i*  *\"n*  nr  n**!*  ******  *¥■  ^**t**i*  nr*  *»* *p  +r  *v  *v  *!"•  i*  *»* 

*  NEXT:    SINGLE    OR    MULTIPLE    STEPPING         * 

*  THRU  USER  PROGRAM  WITH  REG  * 
CONTENTS  DISPLAYED  AFTER  EACH  * 
INSTRUCTION    EXECUTION.                     * 


»'*  !*•  *fe  sft*  *V  ***  •>}*  sfc  «■*•*  *•'»  B§*  »**  ■***  **■  *•<*  »•*  ***  »'*  »'*  V*  *V  **»  Jf  *•*  -J*  »•*  »'■•  V*  *J**  ***  *V  *$*  V*  V*  *•■»  *'*  »*#  «■•*  ***  -'*    t 

-v»  •*•  *n  *i-  n*  *v»  ^»  *»* i» *»»  i»  t  •!•  -r  i*  *r  *i*  nr i*r  tt  *i*  *«*  *F  *?  *.»  V  n*  *»*  *B"  *t* *f  *r  *P  *P  *»-  *r  *5*  *iF  T 

ENTRY 

LDA  R10,R12(#GETNXT) 

CALL 

JR 
LDA 

CALL 

TEST 

JR 
KA:LDK 
KB:LD 

LDA 

CALL 

LDA 

CALL 


9R10  !    SKIP    REST    CMD    ! 

Z,KA  !    NO    NEXT    COUNT    ! 

R10,R12(#GETADR) 

0R10  !    GET    COUNT    ! 

R3 

NZ,KB  !    COUNT<0    ! 

R3,#l  !    SET   CNT=1    ! 

BRKCNT(R14) tR3  !    SET    3RKCNT    ! 

E10,R12(#RGHDR1) 

0R10  !    DISPLAY   HDR    ! 

R10,R12(#RGHDE2) 

c?Rie 


0138 
013A 
013C 
013E 
0140 
0142 
0144 
0146 
0148 
014A 
314C 
014E 
0150 


3402 
FF94 
61S3 
0316 
4PE3 
033E 
EE0D 
61 E3 
0316 
61E1 
0314 
2F31 
E807 


!    SINGLE    INSTRUCTION    EXECUTION   ROUTINE    ! 
SINST: 

F2,SSINT  !    SETUP    INT    HDLR    t 


LDAR 

LD 

CP 

JR 

LD 

LE 


R3,BRKADR(R14) 
R3,RPC_(R14) 


!    PC=3?KADR(R14)?    ! 


NZ.KC  !    NO    CONTINUE ! 

P3,BRKADP(?14) 

R1,BRKSTR(R14) 


0152    3402 


LD  0R3.R1  !    RESTORE   ORIGINAL    INST    ! 

JR  KC  !    CONTINUE ! 

!    BREAK    INTERRUPT    HANDLER    POUTINE   ENTRY    ! 
BRKROU: 

LDAR  R2,BRKIHD         !    SET    INT    HDLR    ! 
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0154  FF4E 
0156  61E3 
0158  0316 
015A  6101 
015C  0314 
015E  2F31 


0160  7C01 
0162  7D15 
0164  7613 
0166  001E 
0168  3332 
016A  000C 


016C 
016E 
0170 
0172 
0174 
0176 
0178 
017A 
017C 
017E 
0180 


0182 
0184 
0186 
0188 
018A 
018C 
018E 
0190 


D097 
61EE 
033C 
31F1 
0002 
6FE1 
031  A 
0501 
1000 

33E1 
0002 


61E1 
0320 
93E1 
61EC 
0336 
61E1 
033  A 
A113 


0192  97E1 
0194  3B16 
0196  FFC0 
0198  A1AA 
019A  7B00 
019C 


LD 
LD 
LD 


R3,BRKADR(R14) 

fil,BPKSTR         !    RESTORE   BRK    INST    ! 

GR3.R1 


!    EXECUTE   SINGLE   USER    INST    AND   RETURN    BY    IRST    ! 
KC: 

DI  VI 

LDCTL     Rl.PSAPOFF 

LDA  R3,VEC    PC(R1) 


LD 


33 (#12),  R2 


!    SET    INT    HDLIt    IN    PSA    ! 


CALE  RESTOR  !    RESTORE   REGS  , PC  ,FCW    ! 

LD  R15fR15_(R14)  !    RESTORE   SP    ! 

LD  R1,R15(#2) 

LD  TMPFCW(R14) ,R1 

OR  R1,#VINTR  !    ENABLE    VI    ! 

LD  R15(#2),R1       !    PUT    BACK    ! 

!  RESTORE  USER  R12  AND  R14  ! 


LD 

PUSH 
LD 

LD 

LD 

POP 
OUT 


R1,P1_(R14) 

@E15,R1 

R12,R12_(R14) 

RltR14_:R14) 

B14fRl 


R1,@R15 
%FFC0,R1 


!  ARM  SINGLE  STEP  ! 


LD 

IRET 
END  NEXT 
END  DEBUG  CMD 


R10.R10 

!  RTN  AND  EXECUTE  ONE  INST  ! 
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8.   SEND  MODULE 


Z8000ASM   2.02 

LOC     OBJ  CODE 


$LISTON 


STMT  SOURCE  STATEMENT 

SEND_CMD  MODULE 
$TTY 


i  J-  -JU   Of  -J-  «'< 


*  send  cmd:  sends  specific  block  c? 

*  mem  <eg-n  adrxsnd  adr>  to 

*  mcz  to  store  as  <fname> 

*  v /reload  opt.  entry  sdr 

*  <ent  adr>.  all  hex  values 

*  converted  to  ascii  for 

*  trans.  in  text?onix  fromat 

*  packets;  and  up  to  ten 

*  attempts  at  packet  trans. 

*  will  be  made. 


* 


SYNTAX:  SEND 


<BGNADRXENDADR> 

[<ENT    ADR>] 


si*  tC  y«  •*•*  ju  »'*  ***  >•*  ***  jjg  *j*  *'*  %*•»  »'■*  *'*  *■*  o*  »*<  »'*  »i*  »**  **<•  ***  *"*  *■*•  ■+*■*  »**  O"  ***  »'*  *'■*  «ju  J*  »**  jjj  v*  *V  ■ 


CONSTANT 


INCLUDE  GLOBAL  CONSTANTS  ) 


EXTERNAL 
FN  A  ME 
EIARG 
G-ETADR 
SNDMSG 
SKIPLN 
CMDPAS 
CONVB 
CONVW 
EROR 
GETACK 
OUTLNE 


PROCEDURE 

LABEL 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

LABEL 

PROCEDURE 

LABEL 

PROCEDURE 

PROCEDURE 


GLOBAL 
^SECTION 
$REL  0 


SEND  PROC 
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0000 


0000 
0002 
0004 
0006 
0008 
000A 
000C 
000E 


8D38 
C32F 
6EE8 
0080 
69E0 
0306 
8D94 
9E06 


GLOBAL 

SNDPAC    PROCEDURE 

I  5JS  3^  3(»  ^*  9pC  *v»  3p  *i*  nr*  t^  *t*  *r^  ■!*  ^»*  t*  *v  "i*  "P  *«^  *»*  t*  *p  t*  *5*  t*  *»*  *v  ■!■  *B"  *i"  1*  *t*  *»*  *i*  *i*  •p  "V"  *f*  V  ■<* 

SNDPAC:  FORMATS  TRANSFER  PACKET  * 
DATA  IN  TEXTRON  IX  FROM AT  * 
AND    SENDS    TO    MCZ.  * 


REG   USE:    INPUT      R8    =    3GN    ADR  * 

R9    =    WORD    CNT  * 

RETURN    R8   =    3GN    ADDR    OF      * 

NEXT    AND    Z    IF    LAST* 


* 

* 

* 
* 
*  * 

************************:£******  **#****#*  J 

ENTRY 

CLR  R3 

LD3  RL0  ,.#'/' 

LDB  0UTBUF(R14) ,RL0  !    STORE    /    ! 

INC  0UTPTR(R14) ,#1 

TEST  R9 

RET  Z 


0010 
0012 
0014 
0016 
0018 
0014 
001C 
001S 
0020 
0022 
0024 
0026 


A185 

34CA 

0000* 

1FA0 

A195 

34CA 

0000* 

1FA0 
A0BD 
34CA 
0000* 

1FA0 


0028   8D38 


002A 
002C 
002E 
0030 
0032 
0034 
0036 
0038 
003  A 


208D 

34CA 

0000* 

1FA0 

A9S0 

AB90 

EEF9 

A0BD 

34  C  A 


!  CONVERT 
LD 
LDA 

CALL 

LD 

LDA 

CALL 
LDB 

LDA 

CALL 
!    FORMAT 

CLR 
PROCLP: 

LDB 

LDA 

CALL 

INC 

DEC 

JR 

LDB 

LDA 


BGN    ADR    TO    ASCII,    ADD    TO   CKSUM       ! 
R5,R8 
R10,R12(#CONVW) 


!    CONVERT    ASCII    ! 


!    CONVERT    WORD    ! 


0R10 

R5,R9 

R10,R12(#CONV3) 

G>R10 
RL5.RL3 

R10,R12(#CONVB) 

3R10 
ALL   DATA     ! 
R3 

RL5.3R8 
R10,R12(#CONVB) 


0R10 

R8,#l 

R9 

NZ, PROCLP  I    CONT   CONVERSION    f 

RL5.RL3  !    DONE,    STR    CKSUM    ! 

R10,R12(#CONVB) 
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003C    0000* 


0035 
?040 
0042 
0044 
FC46 


1FA0 
1F20 
8D43 
9E08 


CALL  @R10 

CALL  ^R2 

RESFLG         Z 
RET 
END    SNDPAC 


!    CONVERT    CKSUM    ! 


0046 


0046 
0046 
004A 
004C 
004E 
0050 
0052 

0054 
0056 
0058 
005A 
005C 
005E 
0060 
0062 


A 165 
34CA 
0000* 

1FA0 

CD00 

34CA 

0000* 

1FA0 

A0BD 

34  C  A 

0000* 

1FA0 

1F20 

9E08 


GLOBAL 

LASTPC    PROCEDURE 

*  LASTPC:       FORMATS    LAST    PACKET   FOP.        * 

*  TRANS      WITH   ENTRY    ADR,  * 

*  COUNT=0,    AND    CKSOM.  * 

*  REG   USE:      INPUT        R6    =   ENTRY   ADR         * 

ENTRY 
LD 
LDA 

CALL 
LDB 

LDA 

CALL 
LDB 

LDA 

CALL 
CALL 
RET 
END    LASTPC 


R5fR6 

R10,R12'#CONVW) 


!    CONVERT    BYTE    ! 


OR10 

RL5   #0 
R10',R12(#CONVB 


GP10  !    CONVERT   WORD    ! 

RL5.RL3  !    LOAD    CKSU*!    ! 

R10,R12(#CONVB) 


0R10 

C°R2 


!    SMD    TO ! 


0062 


GLOBAL 

SRMSG    PROCEDURE 

!»',  +t+*Aa  %•*  <JU  kl*  *J*   -JU  -'.*  vt*  -''   -'».**  »'*  ***  *f»   *■»•  *JU  *V  *'*  »'*  V'  ",*  ■»'*  *••*  V'  -'-  *'-  *•*'*  ***  *■**  -''  *V  *'■*  •**  **'  *V  »''  •»*•*  -'- 
*r  m»>,-  *|»  *•,»■  'r  «v  ***  ^  *»*  *r*  *»*•*•  n**p  i**!*  *v  *!"•*»*  *f  n-*v  *v*«*  nP*r«  *»»  *c*»*  *r  *r  i**v  i*  *»*  *i*  *v*r  *c 

*  ERMSG:    SENDS    ASCII    //    MSG    TO  * 

*  MCZ    TO    ABORT   SEND    ChD.  * 

«A*  <jU  «V  V-*  V*  *t  *  »•»  »**  **»  ***  ***  *>'£  V*  *'*  "^  **■*  *V  ***  Vtf  ***  *>**  ***  •**  "J*  *"*  *V  ***  *■' "  ***  5&  *'*  V*  ***  ***  ***  *'*  ***  *f*  *V  ***   1 

^j-  *|»  -^*  ^,«»  -(»  ^,-«  *s»  *>y*  *>,-.  *|«   *,.  *,»  -|*  »|*  *-,-.  *,»  if,  *|%  ^,*  *y»  'j»  »|»  •"!•  »i*  ^»  »f»  *t*  **■"  »i*  A*  *^  *p  *^  *^  *|*  *|*  *|*  *|*  *|*  *(*    I 

ENTRY 

B  RH0,#V 

B  RL0,#V 

!    LOAD    BUF    //    ! 


0062 

C02F 

LDB 

RH0f#V 

0064 

C82F 

LDB 

RL0,#  '/' 

0066 

6FE0 

LD 

OUTBUF(P14),R0 

0066 

0080 

006A 

76ED 

LDA 

R13,0UTBUF(R14) 

006C 

0080 

006E 

A9D1 

INC 

R13,#2 

0070 

6FED 

LD 

0UTPTR(R14),R13 

0072 

0306 
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0074 

34  C  A 

LDA 

0076 

0000* 

0078 

1FA0 

CALL 

007A 

9E08 

FET 

007C 

END    ERMSG 

R10,R12(#OUTLNE) 

GRIP  !    OUTPUT    LINE    -    MCZ    ! 


007C 


007C 
007E 
0060 
0082 
0084 
0086 
0088 
008A 
008C 
008E 
£090 
0092 
0094 
0096 
0098 
009A 
009C 

009E 
00A0 
00A2 
00A4 
00»6 
00A8 


34CA 
0000* 

1FA0 

0B0B 

FFFE 

S60B 

AlBe 

34  C  A 

0000* 

1EA0 

E706 

A137 

34CA 

0000* 

1FA0 
A136 
8387 

34CA 

0000* 

1EA7 
A970 
65E3 
031C 


00AA  34CA 
00AC  0000* 
00AE  1FA0 
00B0  9E06 
00B2  34CA 
00B4  0000* 
00B6    1FA0 


GLOBAL 

SEND    PROCEDURE 

«V'  *'*  ife  »**  *f*  V"  •*'*  **■*  <*f'  »'»  V*  »•-»  V#  *'•  ***  »'■'  *'*  *J^  *•'*  *$4  ***  »'*  *•*  "^  *»V  ***  **■*  ***  *'*  ***  *1**  »*■»  +fi*  ***  *•*  ***  *•*  ***  ***  **- 
if  ***  n*  *i"  *r  n*  *»*  *t*  *i*  *t*  nP  *»*  nr  *r  t»  n*  *r  *•*  "»*  *t*  *»*  *<*  *v  i»  »r  'i-  "i*  n*  *»*  *r  »r*  *<■•  *#*  *»*  *r»  *r  t»  *i*  **•  *•* 

*  # 

*  SEND:      FOP  MATS    AND   TRANSFERS    PACS         * 

*  CONTAINING    TATA    FROM   THE 

*  SPECIFIED    MEMORY    AREA    TO    BE    SAVED        * 

*  AS    A    MCZ    FILE.  * 

ENTRY 
LDA 

CALL 
C? 

JR 
LD 
LDA 

CALL 
JR 
LD 
LDA 

CALL 

LD 
SUB 

GO TERR: 
LDA 

JP 

INC 

SET 


R10,R12(#FNAME) 

0R10  !    CK    FNAME    I 

R11,#%FFFE  !    CK    FOR    NO    ADR    ! 

Z.GOTERR 

R8.R11  !    SAVE   BGN    ADR    ! 

R10,R12(#GETADR) 

0R10 

C.GOTERR  !    ERROR    ! 

R7,R3  !    SAVE   END    ADR    ! 

R10,R12(#GETADR) 


GP10 
R6,R3 
R7  ,R8 

R10,R12(#EROR 


!    GET    ENT    »DP    ! 
!    it    BYTES     ! 


!    SEND   CMD 
LDA 

CALL 

RET 
LDA 

CALL 


CGR10  !    RTN    EXEC    ! 

R7  !    BYTE    COUNT    ! 

MFLAGS(R14),#SNDMDE 

!    SIG    SND    MODE    ! 
TO    MCZ    TO    LOAD   SEND   PROGRAM    ! 
R10,R12(#CMDPAS) 

OR10  !    SND   CMD    ! 

Z 

R10,R12(#GETACK)       !    GET    ACK    ! 

0E10 
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00E6  E603 
00BA  3402 
00EC  00B0 
00BS  F833 

00C0  67E5 
00C2  031C 
00C4  E607 


00C6  D033 
00C8  3402 
00CA  0086 

00CC  34CA 
00CE  0000s 
00D0  1FA0 
00D2  9E08 


JR  Z,AC 

LDAR  R2,0PERR      !  SEND  FILE  OPEN  ! 

JR  PEM  !  ERROR  TO  CONS  ! 

AC:BIT  MFLAGS(R14),#SSC 

JR  Z,AD  !  CK  FOR  ESC  KEY"  ! 

!SEND  ABORT  TO  CONSOLE  AND  MCZ  IF  REC  ESC  KEY  ! 
SNDABT: 

CALR  ERMSG 


DAR 


LDA 


R2,ABTMSG     !  SND  ABORT  MSG-  ! 
R10tR12(#SNDMSG) 


CALL     GR10 
RET 


00D4 
00D6 
00D8 
00DA 
00DC 
00DE 
00E0 
00E2 
00E4 


4DF5 
0342 
000A 
0B07 
001E 
EF03 
A 179 
8D78 
F804 


00E6  2109 
00E8  001E 
00EA  0307 
00EC  001E 
00EE  A19B 


AD:  LI) 

C? 

JR 
LD 
CLR 
JR 

COMP: 
LD 

SUB 

AE:LD 


RETRY (R14), #10 


R7,#30 

NC  ,COMP 

R9,R7 

R7 

AE 


#£YTES  SND  >  30  ! 
#<30,  USE  REST  ! 
LAST  PACKET  ! 


R9,#30 
R7,#30 
R11.R9 


!  SND  30-EYTES  ! 
!  GST  NEW  #BYTES  ! 
!  SAVE  COUNT  ! 


00F0 

67F5 

BIT 

00F2 

031C 

00F4 

EEE8 

JR 

00F6 

34C2 

LDA 

00F8 

0000* 

00FA 

D07E 

CALR 

00FC 

E60F 

JR 

00FE 

34CA 

LDA 

0100 

0000* 

0102 

1FA0 

CALL 

0104 

34CA 

LDA 

0106 

0000* 

0108 

1FA0 

CALL 

!  MAIN  RETRY  LOOP  FOR  RESENDIMG  PACKETS  TO  MCZ  ! 
RSSEND: 

MFLAGS(R14) ,#ESC   !  CK  FOR  USER  A^ORT  ! 

NZ, SNDABT     !  GOT,  SND  ABORT...! 
R2,R12(#0UTLNE) 

SMDPAC 

Z.LONE        !  SND  LAST  PACKET  ! 

R10,R12(#SXIPLN) 

GR10  !  SKI?  MCZ  INPUT  ! 

R10,R12(#GETACK) 


GR10 


!  WAIT  FOR  ACK  ! 
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010A 

EE01 

JR 

NZ.AF 

010C 

E8E3 

JR 

AD 

010E 

E711 

AF :  J  R 

C,AG 

0110 

83B8 

SUE 

R8,R11 

0112 

A1B9 

LD 

R9.R11 

0114 

6BE0 

DEC 

RETRY(R14),#1 

0116 

0342 

0118 

E615 

JR 

Z,SNDSTP 

011A 

E8EA 

JR 

RESEND 

!  REC  NON-ACK  ! 
!  REC  ACK  ! 

!  REC  9  FOR  A30RT  ! 
!  RESEND  ! 

!  SEND  DONE  ! 


!  SEND  LAST  PACKET  TO  MCZ  ! 
LONE: 

011C  34C2  LDA  R2,R12(#0UTLNE ) 

011E  0000* 

0120    D06E  CALR  LASTPC  !    PREPARE   LAST    PAC    ! 

0122    34CA  LDA  R10, R12 ( *SKIPLN ) 

0124   0000* 

0126  1FA0  CALL  GR10  !  SKIP  MCZ  ECHO  ! 

0128  34CA  LDA  R10,R12(#GETACK) 

012A  0000* 

012C  1FA0  CALL  0R10  !  WAIT  FOR  ACK  ! 

012F  9E06  RET  Z  !  FINISHED...! 

0130    EF06  JR  NC,AZ  !    RESEND ! 

0132  3402   AG:LDAR      R2.WRTERR 
0134  0024 

PEM: 
0136  34CA     LDA      R10,R12(#SNDMSG) 
0138  0000* 

013A  1FA0      CALL      OP.  10  !  SEND  WRITE  EPFOR  ! 

013C  9E08     RET 

013E  6BE0   AZ:DEC       RETRY (R14  )  ,#1 

0140  0342 

0142  EED6     JR        NZ , RESEND     !  TRY  AGAIN  ! 

SNDSTP: 
0144  D072      CALR      ERMSG 
0146  3402     LDAR      R2.CKMSG 
0148  0036 

014A  34CA      LDA      R10, R12(#SNDMSG) 
014C  0000* 

014E  1FA0      CALL     OR10        !  SND  CKSUM  ERROR  ! 
0150  9E08      RET 
0152       END  SEND 
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AETMSG: 

0152 

07 

BVAL 

%07 

0153 

2F 

BVAL 

V 

0154 

4142 

WVAL 

'AE' 

0156 

4F52 

WVAL 

'OR' 

(7158 

54 

BVAL 

'T' 

0159 

0D 

BVAL 
WRTERR: 

%0D 

£15A 

18 

BVAL 

%1B 

015B 

2F 

EVAL 

7' 

015C 

4649 

WVAL 

'FI' 

015F 

4C45 

WVAL 

'LE' 

0160 

2057 

WVAL 

'  W' 

0162 

5249 

WVAL 

'RI' 

0164 

5445 

WVAL 

'TE' 

0166 

2045 

WVAL 

'  £' 

0168 

5252 

WVAL 

'RR' 

016A 

4F52 

WVAL 

'OR' 

316C 

0D 

BVAL 

%0D 

016D 

20 

BVAL 

OPEK?: 

•    ' 

016E 

17 

BVAL 

%17 

016F 

2F 

BVAL 

7' 

0170 

4F50 

WVAL 

'OP' 

0172 

454E 

WVAL 

'EN' 

0174 

2046 

WVAL 

'  F' 

0176 

494C 

WVAL 

'IL' 

0178 

4520 

WVAL 

'S  ' 

017A 

4552 

WVAL 

'ER' 

017C 

524F 

WV»L 

'HO' 

017E 

52 

BVAL 

'R' 

017F 

0D 

BVAL 
CXMSG: 

%0E 

0180 

12 

BVAL 

%12 

0181 

43 

BVAL 

'C' 

0182 

4B53 

WVAL 

'KS' 

0184 

554D 

WVAL 

'UM' 

0186 

2045 

WVAL 

'  E' 

0188 

5252 

WVAL 

'RR' 

018A 

4F52 

WVAL 

'OR' 

018C 

0D 

BVAL 

%0D 

01 3D 

20 

BVAL 

•    s 

END  SEND  CMD 


0  errors 
Assembly  complete 
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APPENDIX  C  -  ECOTLOAD  Program  Listing 

A.   PROM  PFOGRAMMING 

The  Sootload  program  listing  contained  in  sections  B  -  F 
was  programmed  into  the  firmware  by  the  use  of  the  two 
support  programs  (Z8XFER  and  CPMXFR  )  of  Appendix  E  and  the 
following  Drocedures. 


Bootup  the  SASS  hardware  to  the  monitor  program  by 
the  following  seauence  of  actions: 

RESET 

TYPE  <CR> 

RESET  MCZ  System 

TYPE  <CR> 

DEPRESS  "INTA"  switch  (NMI) 
(displays  :   LOADING ) 

When  prompt  appears  ('*'),  the  monitor  is  loaded 
(approximately  20  sec). 


2.   Bootup  the  INTEL  MDS  System  with  a  CP/M  disk  having 
the  CPMXFR  program. 


3.  On  the  SASS  Developmental  System,  load  the  desired 
bootload  program  into  memory  at  address  6200  HEX 
by  the  following  command: 

TYPE  "LOAD  <Filename>  6000" 


4.   Load  ZS000  transfer  program  (CPMXFR)  by: 
TYPE  "LOAD  CPMXFR" 
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5.   Setup  to  execute  transfer  program  with  the  following 
command  s  : 


TYPE 

?  EPC  <CB> 

TYPE 

'A900  <CR> ' 

TYPE 

"5000  <CR>" 

6.   Connect  the  cable  between  the  TTY  port  on  the   MDS 
system  and  connector  'A'  on  the  SASS  system, 
(connector  'A'  is  the  MCZ  port  cable  of  MBC  ) 


?.   Execute  the  CP/M  transfer  program  (CPMXFR)   on  the 
MDS  system,  selecting  code  transfer  ('C'). 


8.   On  the  SASS  system,  begin  transfer  by  the  following 
actions : 

TYPE   "G  <CE>" 


After  the  transfer  is  completed,  the  SASS  monitor  will 
display  the  prompt  ('*'),  and  the  MDS  system  will  provide  an 
indication  that  two  files  (PROM0S.OBJ  and  PROM09.OEJ)  have 
been  created. 

To  move  the  file  first  to  1 31 3-1 1  and  then  to  the  PROM 
programmer,  the  following  procedures  apply: 


9.   On  the  MDS  system  with  an  IS  IS  — II  disk  in  drive  3:, 
transfer  the  two  CP/M  files  to  ISIS  as  follows: 

TYPE  'TOISIS  PROM08.OBJ  <CR> ' 

TYPE    "TOISIS    PROM09.OBJ    <CR>" 
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10.  Reboot  MDS  system  with  ISIS-II  iisk  in  drive  A:  and 
and  convert  OBJ  files  to  HEX  files  as  follows: 

TYPE  "OBJHEX  PROM0S.CBJ  TO  PROM08.HEX  <CR>" 

TYPE  "OBJHEX  PROM09.OBJ  TO  ^ROM09.EEX  <CR>" 

11.  Execute  UPM  (Universal  PROM  Programmer)  by: 

PL*CE  CLEAN  PROM  IN  PROGRAMMER 

TYPE  "UPM.  <CR>" 

TYPE  "READ  FILE  PROM08.HEX  INTO  0020" 

TYPE  'PROGRAM  FROM  0001  TO  2015  START  0000* 

PLACE  CLEAN  PROM  IN  PROGRAMMER  (high  byte) 

TYPE  'READ  FILE  PROM09.HSX  INTO  3000* 

TYPE  "PROGRAM  FROM  0000  TO  2047  START  0000" 

The  PROM's  are  now  programmed. 
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BOOTLOAD    PROGRAM   LISTING 


1.      300TL0AD1    MODULE 


ZS000ASv      2.02 
LOG  03J    COrE 


STMT    SOURCE   STATEMENT 


1    B00TL0«D1    MODULE 
$LISTON      $TTY 


CONSTANT 

RXR 

;  = 

2 

TXR 

;  = 

0 

PAR 

•  = 

7 

POPTAD 

,= 

%EED9 

PORTED 

!  = 

%FFE1 

PORTAC 

= 

%FFDB 

PORTBC         : 

= 

%EEE3 

IDPORT 

i  — 

%FFCB 

ICPORT         : 

= 

%FFC9 

ROM_DISABLE    :=   %EFF0 
TCME         :=      %FFD2 
TDTA         :=      %FFD0 


BUS_LOCK"    :=2FFF9 
BUS    UNLOCK    :=%FFF9 


VI  NTH 

VIEIT 
ESCAPE 
BS 

LINDEL 
CR 
LF 

TXOFCH 
TXONCH 
INSIZ 
OUTSIZ 
R3SIZ 
BIT    POSITIONS 
TRPMDS 
ISTOP 
OSTO? 


%{ 2)0001000000000000 
12 


=  %08 
=  %7F 
=  %0D 
=  W 
=  %13 
=  %11 
=  123 
=  12S 
=      256 

IN 

0 

1 

2 


!    INTBUF    SIZE  ! 

!    OUTBUE    SIZE  ! 

!    RING    BUFFER  SIZE 
MONITOR   FLAG    WORD    ! 
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SNDMDE         :=      3 

LDMDE           :=      4 

ESC                :=      5 

TXMSK           :=   %6 

COMDS           :=      11 

MAX^CPU       :=      8 

TYPE 

MESSAGE        ARRAY  [3   WORD] 

MEM   ARRAY      ARRAY [32  WORD! 

SWITCH           .'FRAY  [3    WORD] 

CPU    ENTRY                  RECORD    [ 

SIGNAL                         WORD 

CPU    ID                         WORD 

MSG   ELK                       MESSAGE 

MEM   MAP                       MEM    ARRAY] 

ID    »FEAY                          ARR?Y[MAX    CPU   WORD] 

ENTRY_ARRAY                   ARRAY [MAX_CPU    CPU_ENTRY] 

INTERNAL 

$SECTION    TA3LE1    DATA 

$ABS    0 

0000 

CONFIG   TABLE           RECORD    [ 

RW   PATTERN                WORD 

CPU    NUM                       WORD 

NORM    RW    PAT              WORD 

NORM    CPU    CNT           WORD 

TABLE    LOCK                WORD 

CPU    CNT                       WORD 

CPU_LIST                    ENTRY_4RR£Y] 

INTERNAL 

^SECTION    DATA   DEC 

$ABS    0 

0000 

INTPUF        ARRAY    [128   BYTE] 

0080 

OUTBUF         ARRAY    [128   BYTE] 

0100 

RNGBUF         ARRAY    [256   BYTE] 

0200 

MCZBUF        ARRAY    [256   BYTE] 

0300 

BUF«DR        WORD 

0302 

BUFSIZ        WORD 

0304 

INTPTR           WORD 

0306 

OUTPTR        WORD 

0306 


UNIMP 


WORD 
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030  A 

BRKCNT 

WORD 

^30C 

NXTPTR 

WORD 

030E 

G5T0UT 

WORD 

0310 

MCZPUT 

WORD 

0312 

MCZGET 

WORD 

0314 

BRKSTR 

WORD 

0316 

3RKADR 

WORD 

0318 

TMPSP 

WORD 

031 A 

TMPFCW 

WORD 

031C 


MFLAGS 


WORD 


!  USER  REG  I  STEP  STORAGE  ! 


031E 

R0 

WORD 

0320 

Rl 

WORD 

0322 

R2 

WORD 

0324 

R3 

WORD 

0326 

R4 

WORD 

0328 

B5 

WORD 

032A 

R6 

WORD 

032C 

R7 

WORD 

032E 

R8 

WORD 

0330 

R9~ 

WORD 

0332 

R10 

WORD 

0334 

Rll 

WORD 

0336 

R12 

WORD 

0338 

R13 

WORD 

033A 

P14 

WORD 

033C 

R15 

WORD 

033E 

RPC 

WORD 

0340 

REC_ 

WORD 

0342 

RETRY 

WORD 

0344 

ADR  STR 

WORD 

0346 

CMDTBL 
INTERNAL 

ARRAY  [12  WORD] 

$SECTION  PSA  DATA 

$ABS  0 

0000 

PSA    RE 

CORD  [ 
DATA_AREA      WORD 
CODE~AREA        WORD 
UNIMP  INST     SWITCH 
PR  IV  INST      SWITCH 
SYSTEM  CALL    SWITCH 
SEG  TRAP       SWITCH 
NMI  INT        SWITCH 
NVI  INT       SWITCH 
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VEC_FCW  WORD 

VEC    PC  A?.RAY    [200      WORD] 

1       " 

$SECTION    EXEC_PROC 
EXTERNAL 

NMI  PROCEDURE 

CONINT   PROCEDURE 

MCZFND   PROCEDURE 

BOO?LO»D_CPU      PROCEDURE 

MEM_CPU    ~  LAEEL 

GLOBAL   ERCR      LABEL 
GLOBAL    EXEC      LABEL 
*000  GLOBAL    INITL   PROCEDURE 

*  DMONITOR    INITIALIZATION  * 

•j  -  +t±  y*  v*  s**  v-*  *■''  v»  *■■*■  v-  •*'+  *•■ '  ■»'*  "-*-*.'»  »'-■  ^"'  ->■■  •.*-  -x»  -■*  -i—  s'-  *v  V'  v*  V'  *■'*  »v  ■•'*  *■**  *■*-*  y*  *•■-*  v#  »'*  -'■•  *■*'  *'*  *.■-  i 
V  *&*&  ?t*  ^*i»*15*P  'i**,*-  ^i*  *,«-*r  *i-?i»  *r*i»  *v  V  n*  *»*  *vi-  't*3**  *i*»r»  *v  *i*  nr  *t*  *c  *>*  *»*  n*  *r  **»  *r  -»*  n*   * 

ENTRY 

ORGADP: 
0000    0S00  WVAL  %0E00  !    UNIMP    INST    ! 

9002    4000  WVAL  %4000 

^004    0008'  WVAL  START? 

PHYS_ID: 
0006    F1F1  WVAL  %P1F1  !    UNIQUE    PHYS_ID    ! 

*  INDEPENDENT   PROCESSOR    STAGE  * 

!    START   OF    INITIAL    ENTRY    TO   DMONITOR    ! 
STARTP: 

*  CLEAR   MEM:     'CLEARS'    MEMORY   BY   WRIT-   * 

*  ING   R/W    PATTERN    <55AA>    AT    THE  * 

*  BEGINING    OF    EACH   BLOCK    AND  * 

*  CLEARING    THE    NEXT    THREE    WORD  * 

*  LOCATIONS.    CPU    WILL    WAIT    AT  * 

*  TEE   END    FOR    A    PERIOD    OF    TIME  * 

*  (APPROX.    2MSEC).  * 

•J,  JU 

*\-  -(* 

0038    2104  LD  R4,#%F800  !    TOP   MEM    BLOCK    ! 

000A    F800 

000C    2101  LD  R1,#%55AA  !    R/W    PATTERN    ! 

000E    55AA 
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2010    8D28 
0012    8D43 


CLR 
RSSFLG 


R2 

Z 


!    MAIN    LOOP    FOR    CLEARING    MEMOPY    ! 
CLEAR   MEM.: 
DO 


0014 

A  143 

LD 

R3.R4 

0016 

A  931 

IMC 

t 

R3,#2 

?018 

2F41 

LD 

0R4.R1 

001A 

2105 

LD 

R5,#5 

001C 

0005 

DO 

001E 

2F32 

LD 

0R3.R2 

0020 

A931 

INC 

1      R3,#2 

0022 

AB50 

DEC      P5 

0024 

E601 

JR 

Z,NXT_ONE 

0026 

E8F3 

OD 

NXT_ONE: 

0026 

0E04 

CP 

R4,/*%0000 

002A 

0000 

002C 

E603 

JR 

Z.WAIT1 

002E 

0304 

SUE 

R4,#%0800 

0030 

0800 

0032 

F8F0 

OD 

!    STORE   PATTERN    ! 


!    CK    FOR    LAST   ELK    ! 


WAIT1: 

I<JU  *'«*v  ««*»  ^V  *"'-  V*  »'*  »'■•  *■*■»  V'  «.'*»**  *■'■*  V*  *J>*  »•«•  »V*V  *-*"  -■-»'*  »**  *U  ***  »**  »'*  **■*  *■*  »V  V'  ***  ***  "■'*  ***  »'*  *-**  x'*  "■'*  -'* 
*-i»  ^»  »i^  *j»  >,*  #y*  n*  **i"*  *f*  rfi*  *i*  'i*  *¥*  ■V  *!*  *i*  1*  *^  *?■  *i*  *i*  *i*  *i*  *r*  *i*  *i*  *|*  *i"  *1*  1*  *»"*  *»*  i*  *V*  *i*  1*  *V*  *l*  *i*  •i* 

*  # 

*  CPU   WAITS    APPPOX.    2MSEC    FOP    ALL  * 

*  CPU'S    TO    COMPLETE    THE    SAME   TASK  * 

*  BFFORE    CONTINUING.  * 

*  * 

>**  *JU  *)*  *.'*  fcl-  v>#  ■»'-•  -J.-   ••>  »»>  «V  «J*  ***  ■. '»  *,'*    »'-»  V  -  *"  *'*"  *-'■'  ■**  "■'*  '•V    *■'■'  "V  "■  '■*  **"   ***  *V  *■**  *  '"  '"■:-*  >**  "V  '*'r*  *■'■»  »*•  *■'■*  '*'■*  *■ ''     I 
,..   *^S  #f»   *|*   *y*    .,i  v,«   *,-.   *.,■*  -^   #.|t  <rfi  y(-»    ?j%  fy*    ,ti  ^v  >!■•  *t"*  *,*  *i*  *"!»  *,^   »,»  *^   «>,*  *,•»   *|*  *,*   *|»  »|*    »,*  ^f»  *^H  *,t    *,^  ^*   *,»  *,»   ^,%      | 


0034 

2103 

LD 

R3,*50 

0036 

0032 

DO 

0038 

1904 

MULT 

PR4,#1 

0  03  A 

0001 

003C 

AB30 

DEC 

P3 

003E 

1601 

JR 

Z,SCRIBE_MEM 

0040 

F8F3 

OD 
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F042    2104 
0044    F800 


■  "J*  *A*  >'-  »y  %'*  %l4  »•»  -l»  »'*  <JU  *.*»  J*  %<*  «V  »**  **»  -  '-  "•'*  »'■'  •>'■»  •*'*  *■'■*  ■"'■•  * 

■  Of*  *,<>  #■,-  ,j+    »,»  ,j»  *,»  *(»  *f*   ^,»  -,-»![»  *■,■•  *^  *p  *,-  rp  'fW|«  *,»  *(*  *!■  *,*  * 

SCRIEE_MEM:    TRAVERSES    THROUGH   MEM 
BLOCKS    SEARCHING    FOR    R/W   PAT- 
TERN   INDICTING    ACCESSIBLE 
MEMORY    (RAM).    CPU    INDICATES 
ITS    PRESENCE    3Y    INCREMENTING 
STOPED    CPU_NTJM.    CPU    WAITS    FOR 
FOR    A    PERIOD    OF    2*SFC . 


* 

SCRIEE_MEM: 

LD  R4,#£F800  !    TOP    BLOCK    ADR    ! 


!    MAIN    LOOP    FOR    MEMORY   SCRIBE    ! 


DO 


0046 

2148 

0043 

8B18 

004A 

EE09 

004c 

A 143 

004E 

A  931 

0050 

3B26 

0052 

FFF9 

0054 

2138 

2056 

A980 

7  058 

2F38 

005A 

3B26 

005C 

FFF8 

005E 

8D44 

0060 

E603 

^062 

03^4 

0064 

0800 

0066 

E8EF 

!    CPU 


LD  R8,(?R4 

CP  R8.R1 

JR  NZ.NOMATCH 


CK    FOR    R/W    PATTERN    ! 
!    NOT    FOUND    ! 


INDICATES    ACCESS    TO    THIS    BLOCK    ! 

LD  F.3,R4 

IMC  R3,#2  !    GET    CPU_NUM    ADR    ! 

HUT  BUS    LCCK.R2       !    MUTUAL    EXCLUSION    ! 


LD 
INC 
LD 
OUT 


NOM4.TCH 
TEST 
JR 
SUB 


R8,GE3  ! 

R8,#l  ! 

0R3.R8  ! 

BUS    UNLOCK, R2 


GET    CPU_NUM 

INCREMENT    ! 
RESTORE    ! 


\ 


R4 

Z,WAIT2 

R4,#%0800 


!    FOUND    LAST    BLOCK    ! 


OD 
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WA.IT2: 

»»l-  .'*»'*  -'»  »J,  »•*  »•*  *>>  »'-*.'-  »i»  «tf«>«  v'*«l«  <k»*  «J*  «1*  *JU  «.'.#  %••  *VJU  *•*  »•*  »•*»'-  »'*  \>r  *•*  »'*  »'*  *l*  »'«.  »0  **-  ***  w»-  «J*  *.»» 
i»  i»  i*  *■■*  «v  *i*  *j*  Jt*  *•-  »i*  *i*  *i^  *c  *»■•  *»*  *r»  *i*  *r*  *v  *v*  *i-  -v  *\*  *i*  »i*  -I-  *i*  n*  i*  •■»*  *«*  *!■•  *r  *r*  1*  *•*  *«*•  *t*  ***  *r 

'!«  # 

*  CPU    WAITS    APPROX.    2MSEC    FOE    ALL  * 

*  CPU'S    TO    COMPLETE    TFE    SAME    TASK  * 

*  BEFORE    CONTINUING,  * 

*  # 


^063 

2103 

LD 

R3,#50 

00  6A 

0032 

DO 

006C 

1904 

MULT 

RR4,#1 

006E 

0001 

0070 

AB30 

DEC 

R3 

0072 

F601 

JR 

Z,DEFINE_MEV< 

0074 

F8FE 

OD 

«^'»  *A*  *l*  -y  «U  «JU  *JU  o*  *>-  «!.»  ^«*  ^„  «.>*  k/U  si,  -i»  ol,  ou  -'-  %b  •%<#  *V  O*  -'»  %t*  *»,  •>•>  «.'*  <A*  "■'••  *■'■*  *■•*  -■*  *'-  «A»  »'*■  *'*  -'*  -'■»  **- 
*(*  *v  *!*"  -"***  -■»"*  "  -  -^ir*  *i*  *i*  *r  »t*  *p  *r  *>-  n5  *i*  A*  *v*  n*  *r*  *i*  v  *»■*  *•■*  *v  *r*  *P  *>"  *n  *i5  "t*  *i-  *r-  *p  *?  *t-  *»*  *r  i*  i* 

>>:  * 

*  DEFINE_MEM:    CPU   SEARCHES    FOR    LOWEST    * 

*  MEMORY    BLOCK   WITH   HIGHEST    CPU   * 

*  COUNT    (GLC3AL)    AND    LOWEST    MEM    * 

*  BLOCK   WITH    CPU_NUM=1    (LOCAL).    * 

»u  »** 

*v»  *»* 

*  REG    USE:    RETURN      R7   =    LCa    GLOBAL  * 

*  R6   =    LOW    LOCAL  * 

*  R5   =    CPU_NUM    (HIGH)* 

*  * 


!    TOP    BLOCK    ADR    ! 

!    LOCAL   START    ! 
!    GLOBAL   START    ! 


DEFINE    MEM: 

0076 

8D58 

CLP 

R5 

0  078 

2104 

LD 

R4,#%F800 

007A 

F800 

007C 

»146 

LD 

R6,R4 

307F 

A 147 

LD 

DO 

R7,?4 

008<* 

2148 

LD 

R8.0R4 

0082 

6B13 

CP 

R8.R1 

0034 

EE0C 

JR 

NZ,NSXT_BLK 

!    CHECK   FOP 

LOC*L    OR    GL 

0086 

A 142 

LD 

R2.R4 

0088 

*  921 

INC 

R2,#2 

008A 

2123 

LD 

R3,GR2 

008C 

0B03 

CP 

R3,#l 

008E 

0001 

0090 

E605 

JR 

Z, LOCAL    MEM 

!    CK    FOR    R/W    PATTERN    ! 
!    NOT    ACCESSIBLE    ! 


!    GET    CPU_NUM    ADR    ! 
!    GET    CPU_NUM    ! 
!    CK    FOR    LOCAL    ! 


!    RECORD    GLOBAL   MEM   AND   UPDATE    CPU    NUM    ! 
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0?92 

8B53 

CP 

R3.R5 

0094 

E704 

JR 

C,NEXT   BLK 

0  096 

4135 

LD 

R5.R3 

?098 

A147 

LD 

R7,R4 

009A 

E801 

JR 

MEXT    BLK 

!    R5    IS   HIGHEST    ! 

!    UPDATE    CPU    CNT    ! 

!    UPDATE    GLOBAL    AD?     ! 


009C    A146 


009E  8D44 
00A0  E603 
00A2  0304 
00A4    0800 


!    RECCED    LOCAL   MEMORY    ! 
LOCAL_MEM: 

LD  R6,R4 

NEXT_BLK: 
TEST      R4 

JR  Z,S?EC_CASE 

SUB         ?4,n0800 


!    UPDATE    LOCAL    ! 


!    FINISHED    ! 

!    GET    NEXT    BLOCK    ! 


00A6    E6EC  OD 

i*#**        R7   -    L0W    glOBA.L  P6    =   LOW    LOCAL 

!  R5    =    CPU    COUNT 


00  AS 

2107 

LD 

00AA 

F800 

00  AC 

EE04 

JR 

00AE 

2107 

LD 

00B0 

8000 

00B2 

2105 

LD 

00B4 

0001 

STACK 

I  NT: 

SPEC_CASE: 

!****      FOR   SINGLE    PROCESSOR    MONOBOARD    CASE      *** ! 
R7,#%F800 


NZ, STACK    INT 

r.7,#%8000 


R5f#l 


* 


LOCAL    INITIALIZATION    STAGE 


*  INITIALIZATION    OF    INTERNAL      CPU  * 

*  SPECIAL   PURPOSE    REGISTERS  * 

*  AND    CPU   DATA    STRUCTURES.  * 


*      LOAD    PROGRAM    STATUS    AREA    POINTER  * 

.'•  -J-  U*   ■**  JU  -"*  *»-  -1'  *>*  »'.   -'-  k<#  «JL.  k'#  ->.   «J,  «J*  *JLr  V'  *^   ■"''  -1*  "'*  *i'*  *'-*  «•'*  *>'■•  -1*  *'*  *-'■*  ***  ***  -1*  -1*  V*  ***  *■'*  »''  »**  -t*     I 

*\*  *r»  't^  ■*<*  *i*  *i*  ^i*  -»»  *>*  *r  J>*  *»*  *i*  *i*  *•*  *i-  *i»  t*  n-  n5  -.-  t*  fl*  ?i*  *p  -  "  *r*  *i*  *i*  *fi  *&  *y  t  *f  n*  *i*  *r  -i*  «v  *r   I 


00B6 

A161 

LD 

Hl,26 

00B8 

0101 

ADD 

Rl,#%0100 

00BA 

0100 

!    SET    PSA    ! 
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00RC    7D1D 


LECTL 


PSAPCFF.R1 


!    LOAD    PSAP    ! 


00EE  A  164 
00C0  0104 
00C2  0200 
00C4  A14E 
00C6  340C 
00C8    FF36 


?    R6    CONTAINS    LOW    MEMORY    AREA    FOR   DMONITOR    DATA! 
LD  R4,R6 

ADD  H4,#%020  0 

ID  R14,R4  !    DATA_AREA    ! 

LD.flR  n2tCRGA.DR         !    SET    CODE    ADR    ! 


!    ****      R12=CCDE    ADR  R14=DATA    AREA      ****    ! 

*  SET    STACK    POINTER  * 

»>*  *i#  tV  »•<»  V*  ■■**  »'*  *■•*•  »'»  *V  **£  ^^  *'*  *'*  **•  * V  V*  s*»  ***  ***  "J*  *V  V*  •***  **•  ***  ***  »'•*  ***  •**  *"*  ***  *V  ***  ***  *"*  %**  V*  •*•  ***    I 

*p  *l»  *^  *|»  ^,"*  rp  *,»  "|»  f(-  *,t  *^%  ?,-.  rtt    *,»  .,»  ^  ?,■*  Jf.  *,^  *,-*  ',»  ^|fc  ?,*  ^»  -,-»  *,-  *,-«.  *,-  «,*  »,»  ^,*  *,^  *,*  ^»  *,*.  „,»  ?j»  >,»  *,<•  *^  | 


00C* 

A161 

LD 

00  CC 

0101 

ADD 

00CE 

00F0 

00D0 

AllF 

LD 

00D2  2101 
00D4  9E00 
00D6    7D1B 


R1.E6  !    SET    UP   STACK    PTP    ! 

Rl ,#%00F0 


R15.R1       !    SET    SYSTEM    STACK    POINTER    ! 
1    **    INITIALIZE   REFRESH    CNTR    REGISTER    **    ! 
LT  31,#%9E00  !    LL    RATE   VALUE    ! 

LDCTL  REFRESH, Rl 


*  SPTW    INIT:    INITIALIZES    ALL   EASIC  * 

*  DATA    STRUCTURES    FOR   TEE        * 

*  SINGLE    PROCESSOR.  * 


00D9  A162 
00DA  « 121 
00DC  A911 
00DS  2103 
!?0E0  0250 
00E2  0D65 
00E4   0000 

00E6  BB21 
00E8    0310 


00EA  34E2 
00EC  0000 
00EE   34E1 


!    CLEAR    DMONITOR   RAM    AREA    ! 

LD  R2,R6  !    CLR    DMONITOR    RAM    ! 

LD  H1.H2 

INC  Rl,#2 

LD  R3,#%250 


LD 


LDIR 


OR6,#0 


G>R1,0R2,R3 


!     INITIALIZE   BLANK    BUFFERS    ! 
IDA  K2,R14(*INTBUF) 


LDA 


!    FILL    CONS    INPUT    BUF    ! 
R1,R14(#INTBUF)         WITH    SPACES    ! 


143 


0  0F0 

0000 

00  F2 

A911 

INC 

Rl,#2 

0074 

2103 

LD 

R3,#INSIZ 

00F6 

0080 

00F8 

0D25 

LD 

0R2,*'       ' 

00  FA 

2023 

00FC 

BB21 

LDIR 

0R1,(?R2,R3 

00FF 

0310 

!    LD    FIXED 

DATA    IN    RAM    ! 

0100 

34F7 

LDA 

R7  ,R14(#INT5UF) 

0102 

0000 

0104 

33E7 

LD 

R14(#INTPTR) ,P7 

0106 

0304 

0108 

34F7 

LDA 

R7,R14(#0UTBUF) 

010A 

0080 

010C 

33E7 

LD 

R14(#0UTPTR) ,R7 

010E 

0306 

0110    7D25 

0112  2101 
0114  4000 
0116  8D48 
0118  3423 
011A    0004 

011C  7331 
011E  0400 
0120  A 943 
0122  0304 
0124  001C 
0126  E601 
0128    E8F9 


012A  3423 
012C  001C 
012E  76C4 
0130  0000* 
0132  3334 
0134   0002 


0136   3423 
0138   002A 


i-  *r  *r  t*  n*  T-  *r  *»■  *r  *»»  *»*•*?  ^i*  *i*  f  -v-  *<*  ^*  t*  V  in  «r  t»  n*  ^o  *r  *■<*  *r  *r  "i*  "i5  A-  *v  n*  »n  m  1*  *i*  n*  *r 

*         INITIALIZE   PROGRAM    STATUS    AREA  * 

LDCTL  R2.PSAP0FF 

LD  Rl,#%4000 

CLR  R4 

LDA  R3,R2(#UNIMP    INST) 


DO 


LD  R3(?4),R1 

INC         R4,#4 
CP  R4,#28 


OD 

LD_PC: 

LDA 
LDA 
LD 


JR  Z.LD_PC 

R3,R2(#NMI_INT) 

R4,NMI(R12) 

R3(#2),R4 


!    LOAD    NMI    HDLR    ! 


!    SET    INTERRUPT   HANDLERS    ! 
LDA  R3,R2(#VFC_PC)     !    EASE   OF    INT    VEC! 
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913  A 

76C2 

LDA 

213C 

^000* 

0131 

3332 

LD 

?140 

0000 

0142 

76C2 

LDA 

0144 

0000* 

0146 

3332 

LD 

0146 

0004 

32,C0NIMT(R12)  ICONS  INPUT! 
R3(#0)  ,R2 


J  MCZ  INPUT  ! 
R2,MCZHNB(R12) 


R3(#4),R2 


]  #########^  ##################:;;#  };«###  ###### 


*  HDW  INIT:  INITIALIZES  HARDWARE  IC    * 

*  TO  A  KNOWN  STATE  WITH  ALL   * 

*  NECESSARY  INPUT  OUTPUT  * 

*  FUNCTIONS.  INANITION,  THE  * 

*  SYSTEM  TIMER  FUNCTIONS  AND  * 

*  INTERRUPT  STRUCTURE  IS  SET  * 

*  TO  A  KNOWN  STATE.  * 

*  * 

HDW  INIT: 

!  **  INITIALIZE  USARTS   9551  **  ! 

!  SET  MODE  ! 


014A 

2101 

LD 

R1,#%00CE 

014C 

00CE 

014E 

3A96 

OUT? 

PORTBCRL1 

0150 

FEE3 

0152 

3A96 

OUTB 

?ORTAC,RLl 

0154 

EEDB 

0156 

2101 

LD 

Rl ,#%0027 

0158 

0027 

015A 

3  A  96 

OUTB 

P0RT3CRL1 

015C 

FES3 

015E 

3  A  96 

OUTB 

PORTAC.RL1 

0160 

FFDB 

!  TX,  RX,  RTS,  DTR  ! 


!  **  INIT.  INTERRUPT  CONTROLLER   Q259A  **  ! 

!  LOAD  ICW1  ! 


0162 

2101 

LD 

?.l,ra013 

0164 

0013 

0166 

3A96 

OUTB 

ICPORT.RL1 

0166 

FFC9 

016A 

2101 

LD 

Rl  ,#%0000 

016C 

0000 

016E 

3A96 

OUTB 

IDPORT.PLl 

!  LOAD  ICW2  ! 
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0170  FFCB 


0172  2101 
^174  0003 
0176  3A96 
0179  FFCB 


017A  2101 
017C  FFFF 
017E  3B16 
0180  FFD2 

0182  2101 
0184  FFEF 
0186  3B16 
0188  FFD2 

018A  2101 

018C  FF5F 
018F  3B16 
0190  FFD2 

0192  2101 
0194  FFF8 
0196  3E16 
0198  FFD2 


01 9  A 
019C 
019E 
01A0 
01A2 
01A4 
01A6 
01  Ae 


2101 
FF01 
3316 
FFD2 
2101 
0C29 
3B16 
FFD0 


01 AA  2101 
01AC  FF02 
01AF  3B16 
01B0  FFD2 
01B2  2101 
0134  0029 
0136  3B16 
0138  FFD0 


0134  2101 


LB  Rl  ,#%0003     !  LOAD  ICW4  ! 

0UT3  IDPORT.PL1 

!    **    INITIALIZE   TIMING   CONTROLLER      9513   **    ! 

LD  R1,#%FFFF  !    RESET    DEVICE    ! 

OUT  TCMD,    Rl 

LD  ?.19#%Y?1Y  !    SET    16-BIT    MODE    ! 

OUT  TCMD,R1 


LD 
CUT 

LD 
OUT 


Rl  ,#%FF5F 
TCMD.R1 

Rl  ,#%FFE8 
TCMD.R1 


!  LOAD  ALL  REGS  ! 


!  DISA3LE  AUTO  SEO  ! 


!  SYSTEM  32-BIT  CONTINUOUS  CLOCK  ! 

LD       R1.#%FF01     !  LD  'CM'  CNTR  GRP1  ! 

OUT       TCMD.R1 

LD  R1,#%0C29  !    CNTR    MODE   VALUE    ! 

OUT  TDTA.R1 


LD 
OUT 
LD 
OUT 


R1,#%FF02 
TCMD,R1 
Rl ,#%0029 
TDTA.R1 


!  LD  'CM'  CNTR  GRP2  ! 


!  CNTR  MODE  VALUE  ! 


!    QUANTUM   COUNT-DOWN    TIMER    ! 

LD  Rl,nFF05  !    LD    'CM'    CNTR    GF.P5    ! 
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01BC 

FE05 

01BE 

3B16 

OUT 

01C0 

FFD2 

eic2 

2101 

ID 

01C4 

0C02 

PIC  6 

3*16 

OUT 

01C8 

FFD0 

01CA 

2101 

LD 

01CC 

FF0D 

01CE 

3B16 

OUT 

01T0 

FFD2 

01D2 

2101 

LD 

01D* 

0005 

01D6 

3B16 

OUT 

01D8 

FFD0 

!  HARD 

01  DA 

2101 

LD 

01DC 

FF04 

01DE 

3E16 

OUT 

01E0 

FFD2 

01E2 

2101 

LD 

01E4 

0C02 

01E6 

3B16 

OUT 

01E8 

F?D0 

01 EA 

2101 

LD 

01EC 

FF0C 

01EE 

3B16 

OUT 

01E0 

FFD2 

01F2 

2101 

LD 

01F4 

0005 

01F6 

3B16 

OUT 

01 F8 

FFr0 

01FA 

2101 

LD 

01FC 

FF43 

01EE 

3B16 

OUT 

<?200 

FFD2 

0202 

2101 

LD 

0204 

FF23 

0206 

3B16 

OUT 

0208 

FFD2 

020A 

7C05 

EI 

TC^D.Rl 
P.1  ,#%0C02 
TDT.fl  ,R1 
Rl  ,#%FF0D 
TCMD.R1 
Rl ,#%0005 
TDTA,R1 


!  CNTP.  MODE  VALUE  ! 


!  LD   LOAD   GRP5  ! 


!  LD  VALUE  ! 


!  HARDWARE  PRE-EMPT  MECHANISM  ! 


Rl  ,#%FF04 
TCMD,R1 
Rl  ,#%0C02 
TDTA.R1 
PI  ,#%FF0C 
TCMD,R1 
Rl  ,#%0005 
TDTA,F1 

Rl  ,#%FF43 
TCMD.R1 
F.l  ,#%FF23 
TCMD,R1 

VI 


!  LOAD  'CM'  SRP*  ! 


!  LOAD  CM  ! 


!  LOAD  'LOAD'  GRP4  ! 


!  LOAD  REG  ! 


!  LD  GEM  CNTP.  GRP1&2  ! 


!  APM  REAL  TIME  CLK  ! 
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020C    7678 

020S   0008 


3210  3B26 
0212  FFF9 
0214  0D86 
0216  3B26 
?218  FFF8 
021A    ED03 


021C  1904 
0215  0001 
0220    FSF'7 


f  *f  s£  r,Z  *,-  *ip  -^C  *,«.  5JC  a^X  *p  .-,"  5,*  3^  .-,*  ip  5|C  ip.  5JC  *i»  5,J  £p  »■,»  3J?  3JC  1,C  ^C  „^S  «p  %,£  ^JC  3jC  ij»  >y<  5jX  -i*  ^X  >j,  3,5  *,*  ip 
'I* 


COORPERATING    PROCESSOR    STAGE 
PROPER 


# 


*  TEST    LOCK:    ROUTINE  TO    GAIN    ACCESS         * 

*  "TO    CONFISCABLE.  * 

*  REG    USF:    INPUT      R7   =    LOW    GLOBAL    mem   * 

«>«  -J* 

-»»  *r 

i*  nr  *n  *i*  *i»  *r  *v  *»■  t*  *•*  *i*  *r  ^  n*  t*  -»***•  "»*  nr  n*  't»  *r*  i*  *v  *r*  i*  t*  nr  **»  *i*  *i*  'i5  *nr  nr  A*  »t*  nr*  n*  *i»  *v   I 

TEST    LOC K : 

LDA  R8, TABLE    LOCK(R7)     !    LOCK   ADR    ! 


!    MAIN    LOCK    TESTING    LOOP    ! 
DO 

CUT      BUS_L0CK,R2         !    LOCK    SYSTEM    BUS    ! 

TSET      0R8  !    TEST    TABLE   LOCK    ! 

OUT        3US_UNL0CK,R2    !    UNLOCK    SYSTEM   EUS    ! 


JK 


PL.TBL    ACCESS    !    GOT    EXCLU.    ACCESS    ! 


!    DELAY    BEFORE    NEXT   ATTEMPT    TO    REDUCE    ! 
!    CYCLE   STEALING    ON    BUS    FROM    BOOTLOAD_C?U    ! 
MULT  RR4,#1     " 


OD 


#  * 

*  TBL_ACCESS:    ROUTINE    TO    DETERMINE  * 

*  BOOTLOAD_CPU    AND    M?MBER_CPU  'S .       * 

#  # 

?!<s£###*:##:S:£:fc5ic:£  ########*###£#  #############  ! 

TBL_ACCESS: 

R3,CPU    CNT(R7)       !    TABLE    LOCKED    ! 


0222 

7673 

LDA 

0224 

000A 

0226 

2134 

LD 

0228 

0B04 

CP 

022  4 

0000 

022C 

E603 

JR 

022S 

76C1 

LDA 

0230 

0000* 

0232 

me 

JP 
GO   BOOTCPU: 

0234 

76C1 

"LDA 

0236 

0000* 

R4,(?R3 
R4,#0 


!    GET    LOG_CPU    NO.    ! 
!    IS    CPU   FIRST?    ! 


Z,G0_300TCPU         !    YES     ! 
R1,MEM_CPU(R12) 

@R1 

R1.300TL0AD    CPU(R12) 
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0238  1118      JP       (*R1 
023A       END  INITL 

END  B0CTL05D1 


119 


2.   R00TL0AP2  MODULE 


Z8?2^4SM   2.02 
LOC     OBJ  CODE 


STMT  SOURCE  STATEMENT 


1  BC0TL0AD2  MODULE 
iLISTOM   $TTY 


CONSTANT 

RXR 

;  = 

2 

TXR 

;  = 

0 

PAR 

= 

7 

PORTAD 

:  = 

%FFD9 

POPTBD 

:  = 

%FFE1 

PORTAC 

:  = 

%FFDB 

PORTBC 

;  = 

%FFE3 

IDPORT 

;  = 

%FFCB 

ICPCRT 

:  = 

%FFC9 

ROM  DISABLE  :=  %FFF0 
TCMD    :=   <SFFD2 
TDTA    :=   %FFD0 


3US  LOCK 

FFF9 

BUS  UNLOCI 

C  : 

=%FFF8 

VINTR 

:  = 

% (2)0001000000000000 

VISIT 

:  = 

12 

ESCAPE 

;  = 

%1B 

BS 

:  = 

%08 

L IN DEL 

:  = 

%7F 

CR 

:  = 

%0D 

LP 

:  = 

%0A 

TXOFCH 

:  = 

%13 

TXONCH 

:  s  - 

%11 

INSIZ 

:  = 

128        ! 

INTBUF  SIZE  ! 

OUTSIZ 

:  = 

128       ! 

0UT3UF  SIZE  ! 

RBSIZ 

:  = 

256        ! 

RING  BUFFER  S 

BIT  POSITK 

)NS 

IN  MONITOR 

FLAG  WORD  I 

TRPMDE 

:  = 

0 

ISTOP 

:  = 

1 

OSTOP 

:  = 

2 

SNDMDE 

;  = 

3 

LDMDE 

:  = 

4 

ESC 

:  = 

5 

TXMSK 

:  = 

26 

SIZE 


MAX  CPU   :=   8 
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TYPE 

MESSAGE 

ARRAY  [3    WORD] 

MEM    ARRAY       ARRAY  [32 

WORD] 

SWITCH 

ARRAY  [2    WORD] 

CPU_ENTR 

Y                  RECORD    [ 

SIGNAL 

WORD 

CPU    ID 

WORD 

MSG   BLK 

MESSAGE 

MEM   MAP 

MEM    *RRAY] 

ID    ARRAY 

ARRAY  [MAX    CPU   WORD] 

ENTRY_AR 

RAY                   ARRAY  [MAX_CPU    CPU_ENTRYl 

INTERNAL 

$SECTICN    TA 

BLE1_DATA 

$ABS    0 

0000 

CONEIG_T 

ABLE           RECORD    [ 

RW    PATTERN 

WORD 

CPU   NUM 

WORD 

NORM    PW    PAT              WORD 

NORM    CPU    CNT           WORD 

TABLE    LOCK 

WORD 

CPU    CNT 

WORD 

CPU    LIST 

ENTRY_ARRAY] 

INTERNAL 

$SECTION    DATA    DEC 

$APS    0 

0000 

INTBUE 

ARRAY    [123 

BYTE] 

0080 

OUTBUE 

ARRAY    [128 

BYTEl 

0100 

RNGBUF 

ARRAY     [256 

BYTE] 

0200 

MCZBUE 

ARRAY    [256 

BYTE] 

0300 

BUFADR 

WORD 

0302 

BUESIZ 

WORD 

0304 

INTPTR 

WORD 

0306 

OUTPTR 

WORD 

0308 

NXTPTR 

WORD 

030* 

GETOUT 

WORD 

030C 

MCZPUT 

WORD 

030E 

MCZGET 

WORD 

0310 

MfLAGS 

WORD 

0312 

RETRY 

WORD 

0314 

ADR    STR 

WORE 
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INTERNAL 

$SECTION    PSA_DATA 

$A1S    0 
"?.<??  PSA         RECOFD    [ 

DATA_AREA  WORD 

CODE    AREA  WORD 

DNIMP    INST  SWITCH 

PRIV_INST  SWITCH 

SYSTEM_CALL  SWITCH 

SEG   TRAP  SWITCH 

NMI_INT  SWITCH 

NVI_INT  SWITCH 

VEC_FCW  WORD 

VEC    PC  ARRAY    [200      WORD] 

1       " 

$SECTION    B00T2_PR0C 
EXTERNAL 

NMI        PROCEDURE 

GETLNE     PROCEDURE 

SNDCHR     PROCEDURE 

SNDMSG     PROCEDURE 

MCZHND     PROCEDURE 

COMINT     PROCEDURE 

GET3UF     PROCEDURE 

CUIT      PROCEDURE 

LOAD_FILE  PROCEDURE 

PHYS  ID      LABEL 
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!    *****  BOOTLOAD_CPU      START  *****       ; 

GLOEAI 

NMI_RTN      LABEL 
EROR         L.A3EL 
MEM_CPU      LABEL 
0000       300TLCAr_CPU   PROCEDURE 

I  *******5£**jX##  #*######## s;s# ####** ********* 

*  * 

*  BCOTLOAD_CPU:    CPU   ASSUMES    ROLE    AS         * 

*  INITIALIZATION  COORDINATOR.     * 

*  CPU  DETERMINES  NUMBER  OE  CPU    * 

*  IN  SYSTEM  AND  INITIALIZES  THE   * 

*  CONFIG_TABLE  ACCORDINGLY.  IT    * 

*  THEN  IDENTIFIES  ITSELF  AND  * 

*  WAITS  FOR  MEMBER_CPU'S  TO  * 

*  IDENTIFY  THEMSELVES;  H.ND  THEN   * 

*  CONSOLIDATES  CONFIG  TABLE  DATA  * 

*  INTO  SYSTEM  TABLE   MIN  CONFIG_  * 

*  TB  L )  .  * 

f  *r 

*  REG   USE:    INPUT      R5   =    NUMBER    CPU'S         * 

*  R6   =    LOW    LOCAL   MEM      * 

*  R?   =    LOW    GLOBAL    MEM   * 

■  c  ■<- 

s;j*#>ie***#:£:}::£:$c:}es;s;is;:e5}e;£5;e  ##**********  *********  t 

ENTRY 

!  LOAD  C?U_CNT  WITH  NEXT  LOG_CPU  NUMBER  ! 
P0O0  4D75     LD       CPU_CNT(R7) ,#1     !  LOAD  LOG_CPU  1  ! 
0002  000A 
0004  0001 

0006  4DE5      LD       ADR_STR(R14) ,#0    !  SAVE  LCG^CPU  NO.  ! 
0006  0314 
000A  0000 

!  CLEAR  CONFIG_TABLE  FOR  CPU_NUM  ENTRIES  ! 
000C  A153      LD       R3tR5      f  GET  CPU  COUNT  ! 
000E  8D28 

0010  0102        ADD    R2,#37 
0012  0025 
0014  «B30 
0016  E601 
0018  E8FB 

!  CLEAR  CONFIG_TABLE  FOR  TOTAL  CPU  ENTRIES  ! 

NXT: 
001A  7673     LDA       R3 ,CPU_LIST(R7 )   !  BASE  ADR  ! 
*01C  000C 

001E  0D35     LD       CR3,#0 
0020  0000 
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LD 

R3tR5 

CLR 

R2 

DO 

ADD 

R2,#3 

DEC 

R3 

JR 

Z,NXT 

OD 

0022  A134 
P024  P941 
0026  EB31 
0028  0240 


LD  R4,R3 
IMC  R4,#2 
LDIR      GR4,(?R3,R2 


!  CLEAR  TABLE  ! 


002A 
002C 
002E 
0030 
0032 
0034 
0036 
0038 
003A 


7673 
000C 
61C9 
00005 

6F38 
0002 
763D 
000A 
DF1C 


203C  7679 
003E  0008 

0040  0D85 
0042  0000 


0044  7678 
0046  000A 
0048  »159 

004A  218D 
004C  8B9D 
004E  E603 
0050  1904 
0052  7001 
0054  E8FA 


0056  DF53 
0058  E82A 


!  COMPLETE  OWN  CONFIG  TABLE  ENTRY  ! 

!  LOG  CPU  0  ! 


LDA 

LD 

LD 

LDA 

CALR 


R3,CPU_LIST(R7) 

R8.?HYS_ID(R12)     !  UNIQUE  ID  ! 

CPU_ID(R3),R8  !  ENTER  IN  TABLE  ! 

T,13,MEM_MAP(R3) 

M.a?  MEMORY    !  ENTER  MEM  MAP  ! 


!    UNLOCK    CONFIG_TAELE    ! 

L^A  RS, TABLE    LCCK(R7)     !    LOCK    ADR    ! 


LD 


@P8,#0 


!    CLEAR    LOCK    ! 


!    WAIT    FOR    ALL    CPU'S    TO    IDENTIFY    THEMSELVES     ! 
LDA  R8,CPU    CNT(R7)       !    CPU   CNT    ADR    ! 


LD 
DO 


LD 
CP 
JR 


OD 


GOT  SIG: 

CALR 

JR 


R9,R5 

R13.9R8 
R13.R9 
Z,GOT    SIG 


MULT      RR4,#1 


SIGNAL_CPU 
DECISION 


!    GST    TOTAL   ?HYS_CPU    ! 

!    GET    VALUE    ! 
!    CK    FOR    MATCH    ! 

!    DELAY    ! 


!  PROCEDE  TO  SECONDARY  ! 
!  STORAGE  INTERFACING   ! 
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I    *****  MEMBER_CPU      START         *****    ! 

i ************************* ****** ********* 
v  v 

*  MEM_CPU:    IDENTIFIES    ITSELF    IN  * 

*  CONFISCABLE    AND    ENTERS    MEM_         * 

*  MAP.    WAITS    FOR    DIRECTOR_CPU  * 

*  TO    SIGNAL    TC    CONTINUE.  * 

»v  %*» 

*»*  '»» 

*  REG    USE:    INPUT      R3   =    BASE    OF   OWN  * 

*  ENTRY  * 

*  * 

i*  "i*  ***  'r*r  »r*  «*•  «v  -v  n*  *i-  *\- *i*  nrn*  *<*  *v»  *r  "«*  "i*  *r  *t*  *i*  *»*  *r  m*  *o  *v  *r  *»*  *r*  'i*  *r»  *r  n»  n1*  *t*  «v  n*  *p  f 

MEM_C?U: 
005*    7673  LDA  R3  ,C?U_LI  ST(  R7 )       !    BASE    CF   ENTRY    ! 

005C    000C 

005E    6174  ID  R4,CPU_CNT(R7)       !    L0G_CPU    NUMBER    ! 

0060    000A 

Z062    6FE4  LD  ADP_ST^( R14) ,  ?A       !    3 *VE    L0G_CPU    NO 

0064    0314 
?066   8D28  CLR  R2 

DO 
0068    0102  ADD        R2,#74  !    DETERMINE   BASE   OF    ! 

006*    004£ 

006C    AB40  DEC         R4  !    ENTRY    ! 

006E    E601  JR  Z,C0NT 

0070    E8FB  OD 

CONT: 
0072    812A  ADD  R10.R2  !    COMPUTE   3ASE    ADR    ! 

0074    «1A3  LD  F.3,R10  !    SAVE    BASE    ADR    ! 

!  ENTER   UNIQUE   ID    IN    TABLE    ENTRY    ! 

0076   76C2  LDA  R2 ,PHYS_I D( R 12 ) 

0078    0000* 

007A    2123  LD  R8.0R2  !    G-ET   UNIQUE    ID    ! 

007C    6F38  LD  CPU_ID( R3 ) , R8    !    ENTER    IN    TABLE    ! 

007E    0002 

!  ENTER   MEM_MAP    IN    TABLE    ENTRY    ! 
0080    763D  LDA  R13,MEM_MAP( R3 )       !    MEM_MAP    BASE    ! 

0082    000A 
0084   DF41  CALR  MAP_MEM0RY 

!    LOAD  CPU    CNT    WITH   NEXT    L0G_CPU    NUMBER    ! 
0086   7678             LDA  "    R8 ,CPU_CNT(R7 ) 

0088    000A 

008.'*    2189  LD  R9.0R8  !    CPU    COUNT    ! 

008C    A990  INC  P9  I    ADD    ONE,     ! 

008E    2F89  LD  GR8.R9  !    AND    PUT    BACK    ! 
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0090    7673 
"092    0008 

0094   0D85 
0096    0000 


!    UNLOCK    CONF_TABLE   FOR   OTHER    PROCESSORS     ! 
LEA  38, TABLE    L0CK(R7) 


LD 


f??8,#0 


!    CLEAR   LOCK    ! 


0098  7636 
009A    0000 

009C  2182 
009E   0B02 

00A0  0001 

00A2  E603 
00A4  1904 
00fl6  0001 
00A8    F8F9 


00  a  4    4D38 
00AC    0000 


!    WAIT    FOR    SIGNAL    TO    PROCEED    WITH   BOOTLOAD    ! 
LDA  R8,SIGNAL(R3)       !    OWN    SIGNAL    ADR    ! 


DO 


LD 
C? 


OD 

RESET_SIG: 
CLR 


P2,0R8 
R2,#l 


!    TEST    SIGNAL    ' 


JR  Z,RESET_SIG 

MULT      RR4t#l  !    DELAY    ! 


SIGNAL(R3) 


»"*r  V'  V*  ■***  *•*■»  *' *  °*  *'-  "'*  *'■*  ***  v-  -1*  "'*  **•  ***  -*f  *"*  ***  >**  ***  ***  *'*  ***  *'*  »'*  *•'••  *' '  ***  «*•  vl*  V'  *■**  -'*  **f  V-  *'*  *'*  *'-  -'•* 


BOOTSTRAP   LOADING    FUCTION 

TEIS    SECTION    CONTAINS    NECESSARY 
SECONDARY    STORAGE      INTERFACING 
PRIMITIVES    TO   EFFECT    A   DOWNLOAD 


# 


*         BOOTLOAD-MONITOR    DECISION    POINT  * 

-,-  I-.-,-  *|»  *,t  *,»  »^  «t>  *i>  *v»  *r  n*  *^  '***i*  *.-  *c7v  *r  *»*  *r  -Vi*  *»**»*  i**P  '.-  *i*  *»■•*•*  -r  *>  *p  •**  *r  *v  *v  t*  *i*  f 


30AS    C82A 

00B0   76CA 

00B2   0000* 
00B4    1FA0 


DECISION: 
LDB 

LD.4 

CALL 


RL0f#'*'  !    PROMPT   MIN    MBC    ! 

!    INITIALIZATION    ! 
F10,SNDCHR(R12) 


0R10 


!    OUTPUT   PROMPT    ! 


00B6  4DF8 
00B8  030A 
00BA  4DE8 
00EC    0308 


!    SET    RINGBUFFER    OFFSET    POINTERS     ! 
CLR  GST0UT(R14) 


CLR 


NXTPTR(R14) 
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00BE  7C05  EI        VI 

!  GLOBAL  TA3LE  FOR  CPU  SYNCHRONIZATION;  LOG_C?TJ  ! 

!  NUMBER  DETERMINES  300T_C00RDIN ATOR  IN  GENERAL 

!  CASE,  BUT  NOT  USED  WITH  MCZ  IMPLEMENTATION.    ! 


!  MAIN  LOOP  EOR  BOOT  COORD  DETERMINATION  ! 
DO 

!  CHECK  EOR  CONSOLE  INPUT  ! 
R0,GETOUT(R14) 


00C0 

61E0 

LD 

00C2 

030A 

00C4 

4"PV0 

CP 

00C6 

0308 

00ce 

EE06 

JR 

00CA  6131 
00CC  0000 
00CE  0B01 
00D0  0001 
00D2  E62C 
00D4  E8F5 


R0.NXTPTR(R14) 

MZ,  RESPONSE    !  HAVE  REC  CHF.  ! 


!  CHECK  FOR  BOOTLOAD  SIGNAL  ! 
LOP_MOR: 

Rl  ,SIGNAL(R3) 


LD 
CP 
JR 


CD 


Rl  ,#30001    !  CK  FOR  SIGNAL  ! 
Z.BGN  BOOT    !  REC  BOOTLOAD  SIG  ! 


?eD6 
00D8 
00DA 

00DC 
00DE 
00E0 
70E2 
00E4 
00E6 
00F8 
00EA 
00  EC 


76C4 

0000* 

1FA0 

2028 

76CA 

0000* 

1FA0 
A10D 
C80D 
1FA0 
C80A 
1FA0 


RESPON SE  * 

!  DETERMINE  INPUT  CHAR  RESPONSE  ! 
LDA      R10,GETBUF(R12) 


CALL 

LDB 

LDA 

CALL 

LD 

LDB 

CALL 

LDB 

CALL 


0R10 

RL0,GR2 

R10,SNDCHR(R12) 


(?R10 

R13,R0 

RL0,#CR 

OR  10 

RL0,#LF 

(?R10 


!  ECHO  TO  CONSOLE  ! 

!  SAVE  CHAR  ! 

!  SEND  CR  TO  CONS  ! 

!  SEND  LINE  FEED  ! 


00EE  3402 
00F0  00F0 
00F2  76CA 
00F4  0000* 

00F6  1FA0 

30F8  4DE8 
00FA  030A 
00FC  4DE8 
00FE  0308 
0100  76CA 


!  INSURE  MCZ  SYSTEM  IS  INITIALIZED  ! 

LDAR  R2,MCZ_MSG     !  INIT  MESSAGE  ! 

LDA  R10,SNDMSG(R12) 

CALL  QR10         !  SEND  TO  CONSOLE  ! 

CLR  GET0UT(R14) 

CLR  NXTPTR(R14) 

LDA  R10,QUIT'R12) 
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0102  0000* 
CI  04  1SA8 


0106  3402 
0108  0086 
010A  76CA 
010C  0000: 
010F  lFJ»e 

0110  A1D2 
0112  0A0A 
0114  5353 
0116  EE03 
0118  340D 
01.1  J!  001E 
011C  2802 


011E  340D 
0120  007C 


0122  61E1 
0124  0308 
0126  6FE1 
0128  030A 

012A  1ED8 


J? 


3310 


!  ENTER  TRANSPARENT  yODE  ! 


!  RETURN  POINT  FORM  TRANSPARENT  MODE  ! 
NMI_RTN: 

!  DETERMINE  COMMAND  BRANCH  1 

LDAR     R2.L0AD  MSG 


LDA 
C*LL 

LD 
CP3 

JR 
LDAR 

JR 

OTHER: 
LDAR 

SET_PT^S : 

LD 

LD 

JP 


R10,SNDMSG(E12) 
0R10 


!  CK  FOR  SASS  BOOTSTRAP  ! 


R2tR13 
RL2,#%53 

NZ,  OTHER 
R13.B00T  COORD 


SET_PTRS 

R13, MONITOR   !  START  OF  DMCNITOR  ! 

RltNXTPTR(R14)   !  RESET  RNIGBUF  ! 

GET0UT(R14) ,R1  !  OFFSET  POINTERS  ! 


0R13 


!  BRANCH  ! 


012C  61EC 
012E  0314 
0130  4D38 
0132  0000 

0134  6131 
0136  0004 
0138  1E1S 


!  NON-BOOTLOAD_CPU  PESPONSE  TO  SIGNAL  ! 
BGN_EOOT: 

!    PASS    LOG_CPU   OF    CPU    INTO    300TSTRAP    ! 
LD  ?12,ADR   STR(R14) 


CLR 

LD 
JP 


SIGNAL(R3) 

R1,MSG_BLK(R3) 

@R1       !  TRANSFER  TO  BOOTSTRAP  ! 
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013  A 

6FE3 

LD 

013C 

0312 

013E 

3404 

LDAR 

t7140 

0090 

0142 

A 173 

LD 

0144 

0103 

ADD 

."146 

0200 

!    LOAD 

0148 

76CA 

LDA 

014A 

0000* 

014C 

1FA0 

CALL 

014E 

Al?4 

LD 

CU50 

U4B 

LD 

0152 

010B 

ADD 

0154 

0200 

0156 

210C 

LD 

0158 

0000 

015A 

A151 

LD 

»s!r  Jx^z.  :*t ste y; ;!s s's *** a** ste  51* *V  afc a?f  *'* *•*»»-**-******  v- •**  *■'* ***  »** »'-  *'* »*-  *** ***  ■»** *fe *'* *v  *•- *v *** V-*  *■'* 
***  *!•"(*  ***^  n*  *r"*V*  *i*  n*  "(*  "Vi6  *i»*i*  **•*(•  'i»*i*  'i»*4-  ^i»»i*  *f*v  *."'»*  'i*  *r»  »»»  i*  ',-•  *F  "i"  *i*  *r*  «*i*  n*n*  *v 

*      ASSUME   BCCTLC.AD    COORDINATOR    ROLE  * 

BOOT   COORD: 

PETRYU14)  ,R3       !    SAVE    ENTRY    BASE    ! 


R4.BOOTLOAD       !    LOAD    FILENAME    ! 

,;3,R7  !    GLOBAL    MEMORY    ! 

R3,#%0200       !    BCOTLOAD    ADR    ! 


R10,LOAD_FILE(R12) 
GB10 

R4.R7  !    GLOBAL   MEMORY    ! 

F.11.R4  !    SAVE    BASE    ADR    ! 

Rll,#%0200       !    EOOTLOAD    ADR    ! 


R12,#0 

R1.R5 


!    NUMBER    CE    CPU'S     ! 


!    STORE   BOOTLOAD    ADDRESS    IN    MSG_3LK    OE    ALL    CPU'S     ! 
DO 

MSG_BLK(R4) ,R3         !    PLACE    ADDRESS    ! 


!    NEXT    LOG    CPU    NUMBER    ! 


015C 

6F43 

LD 

MSG_BLK(R 

015E 

0004 

0160 

AB10 

DEC 

Rl 

0162 

E603 

JR 

Z,SIG_NXT 

0164 

0104 

PDD 

P4,#74 

0166 

004A 

0168 

E8E9 

OD 

016A 

61EC 

LD 

016C 

0314 

016E 

DFDF 

CALR 

0170 

617A 

LD 

0172 

000C 

0174 

4DA5 

LD 

0176 

0000 

0178 

0001 

017A 

61 E3 

LD 

017C 

0312 

017E 

4D38 

CLR 

0180 

0000 

0182 

1EE9 

JP 

Sir,   NXT: 

!    SIGNAL    ALL    CPU'S    TO    TRANSFER    CONTROL    ! 

R12,ADR    STR(R14)  !    GET    OWN    LOG_C?U    NO.     ! 


SIGNAL_C?U 
R10,CPU_LIST(R7) 

SIGNAL(R10) ,#1 


R3,RETRY(R14) 

SIGNAL(R3) 

0R11 


!    BOOTLOAD    CPU    SIGNAL    ! 


!    OWN    ENTRY   BASS    ! 


!    TRANSFER    SELF    ! 
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FFOR: 

0184 

3402 

LDAR 

R2,ERR_MSG 

0186 

0074 

0188 

76CA 

LDA 

R10,SNDMSG(R12) 

018A 

0000* 

013C 

1F40 

CALL 

@R10 

018? 

E88F 

J* 

DECISION 

j  ########## 

END   BOOTL0  4D    ######*#####*###  \ 

LOAD    MSG: 

0190 

0D 

BVAL 

%0D 

0191 

4C 

BVAL 

'L' 

0192 

4F41 

WVAL 

'OA' 

0194 

4449 

WVAL 

'El' 

0196 

4E47 

WVAL 

'MG' 

0198 

2E2E 

WVAL 

*     s 

019A 

2E2E 

WVAL 

•  • 

^19C 

2E 

BVAL 

•    • 

019D 

0D 

BVAL 
MONITOR: 

%0D 

019F 

3404 

LDA?. 

?4,DM0NIT0R         !    LOAD   FILE   NAME    ! 

01A0 

004C 

01A2 

2103 

LD 

R3,#%0000 

0144 

0000 

01A6 

76  C  A 

LDA 

R10,LOAD_FILE(R12) 

01A8 

0000* 

01 A  A 

IF  4  0 

CALL 

0R10 

01  AC 

2103 

LD 

P.3,#£0000 

01AF 

0000 

01B0 

F84C 

JR 

DISABLE    PROM      !    TRANSFER    CONTROL 

01B2  END      BOOTLOAD    CPU 
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01B2  SIGNAL_CPU      PROCEDURE 

i*  n*  *p  *»*  1-  n**  ■*»*  n*  "/*  'i-  *v*  Jr*  *i*  *p  *r*  *v  *t*  *p  t*  t*  i-  ***  *v*  *<r  n*  i6  *»»  *»*  n*  n*  *i*  nr  *<■*  *v»  *<r  *r  n*  *v  't-  *i* 
•«*  JU 

*  SI3NAL_CPU:    PLACES    SIGNAL    (#1)    IN         * 

*  SIGNAL    BLOCK    FOR    EACH    CPU    EN-      * 

*  TRY    IN    CONEIG_TABLE.  * 

*  # 

»»*  ^i-  v'*  *i*  */«  *'»  «t*  J#  *f*  J*  *.•*  »•*  J«»  «.u*»#  J>  »i*  »**  %»*  <j*  •.!««!«  %*»  -j#  j/  tjm  %?*  -j-  »»*  o*  «ju  »t-  »<*■*»..  »*..  »f*  .««  o>u>  «/<•  • 

»t»  *p  ^*    r^»  *,^  ^fc  »,■*  *i»  *j»  ?,-»   .  , »  *,*   *y*   *■,»  --,■*   *>p   rp  *p  *^»   J,-    *,*  #i*  »^  *,>  «f«   *,•>  *p   *)■«.  «|*  *j*  *(*    r,«  #p  *tf»  ^^   *,»  *t*   *,*  *^  ^^      | 

ENTRY 

!  SIGNAL    ALL    CPU    TO    DOWN-LOAD     ! 

0132    767D  LDA  R13, CPU_L 1ST ( R7 ) 

01B4    000C 

01B6    010D  ADD  R13,#74  !    L0G_CPU    1    ENTRY    ! 

01B8    004A 

01B*    A154  LD  R4,R5  !    TOTAL    NO.    CPU    ! 

01BC    AB40  DEC  R4 

01BE    E609  JR  Z,ALL_SIG 

DO 
01C0    4DD5  LD  SIGNAL(R13) ,#1       I    LOAD    SIGNAL    ! 

01C2    0000 
01C4    0001 

01C6   AB40  DEC         R4 

01C8    E603  JR  Z,ALL_SIG 

01CA    010D  ADD        R13,#74  !    NEXT    L0G_CPU    ADR    ! 

01CC    004A 
01CE   E9E9  OD 

ALL_SIG: 
01D0    9E08  RET 

01D2  END   SIGNAL   CPU 


B00TL0 5D: 

01D2 

0? 

BVAL 

%07 

01D3 

4C 

BVAL 

'L' 

01D4 

4F41 

VVAI 

'OA' 

01D6 

4420 

WVAL 

'D    ' 

01D9 

424? 

WVAL 

'BC' 

01DA 

4E54 

WVAL 

'OT' 

01DC 

5354 

WVAL 

'ST' 

01DE 

5241 

WVAL 

'RA' 

?1E0 

5020 

WVAL 
MCZ   MSG: 

'?    ' 

01E2 

0A 

BVAL 

%0A 

01E3 

52 

BVAL 

'R' 

01E4 

4553 

WVAL 

'IS' 

01E6 

4554 

WVAL 

'■Blip  ' 

Li  X 

01E8 

204D 

W  V » L 

'    M' 
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01  E* 

4354 

WVAL 

'CZ' 

01EC 

0D 

BVAL 

%0n 

rlED 

20 

BVAL 

DMONITCR: 

^   • 

01EE 

0D 

BVAL 

%0D 

01FF 

4C 

BVAL 

'L' 

01F0 

4F41 

WVAL 

'OA' 

01F2 

4420 

VVAL 

'D  ' 

01F4 

4D4F 

WVAL 

>0' 

01F6 

4E49 

WVAL 

'NI' 

0178 

544F 

WVAL 

'TO' 

01FA 

5220 

WVAL 

ERR  MSG: 

'F  ' 

01FC 

06 

BVAL 

%06 

01FD 

45 

BVAL 

'E' 

01FE 

5252 

WVAL 

'RR' 

0200 

4F52 

WVAL 

'OR' 

0202 

0D 

BVAL 

%0D 

0203 

20 

BVAL 

•    /■ 

0204 


MAP  MEMORY   PROCEDURE 


*  MAP  MEMORY:  MAPS  CPU  MEMORY  ACCESS  * 

*  BY  DOMAIN,  AS  TO  LOCAL  (1),  * 

*  GLOEAL  (2),  DUAL_USE  (3),  * 

*  NON_USE  (4),  NON_ACCESS  (5).  * 

*«.  J* 

*  HEG  USE:  INPUT   P13  =  ADP  MEM  MAP  * 


#XS###*5} 

:  ^##  ######################;!{#;):  #####  | 

ENTRY 

0204 

Airi 

LD 

R1.R13 

!  SAVE  BASE  ADR  ! 

0206 

2102 

LD 

R2,#%55AA 

!  P/W  PATTERN  ! 

0208 

55AA 

020A 

8D43 

CLR 

R4 

020C 

2109 

LD 

R9,#'?;F800 

!  END  ADR  ! 

020E 

?800 

0210 

2110 

LD 

R0,rtRl 

!  1ST  MAP  BLK  ! 

0212 

DFFF 

CALR 

SYS_MAP    ! 

MAP  SYSTEM  MODE  ! 

0214 

9E08 

RET 

0216 

END  MAP 

MEMORY 
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0216 


0216 
021S 
021A 
021C 
0212 
0220 
0222 
0224 
0226 
^228 
322A 


614S 
0000 

3E23 
E20D 
6148 
0002 
0P08 
0001 
2102 
C001 
2807 


<*22C  3B58 
0222  2202 
0230  C002 
0232    2803 


0234    C004 
0236    E801 


0238    C005 


023A 
2523C 
0232 
0240 
0242 
0244 
0246 


2210 

A911 

8B49 

9206. 

3D  08 

0104 

08^0 


SYS_M*P      PROCEDURE 

?rfs  £i^£  2**  St  v»*  V*  V>  »«*  »U  %V  y*  O*  ^»- -'*  --.  vy  -J*  ■.<*  y*  »***'-  <JU  -*-  •.'-  »<*■*•-  o>  *t»  »u  -JU  y-  V*  »V  •*»  **-*»-  **-  *»*  s»* 
-r  *»»**•  *r*  *r  *i**r  *r»*i»*r*  *r  *r  *v*  •v'r  t»  *r  Jr ***  *p  i* *r  *r  *p  *r*  n* *i*  «v  *i*  *r*  t*  *r n* *r*  *i*  fn-  *v  i*  *v 

*  * 

* 

-r 

ENTRY 


SYS_M"-P:    MAPS    MEMORY    ACC2SS    IN    TE2 
SYST2M    M0D2    INTO    CONFISCABLE 
FOR    CPU. 

PEG   USE:    INPUT      Rl    =    BASE    MAP   BLK 

R2   =    R/'V    PATTERN 
F4  =    START    MEM 
R9   =    END    ADR 


0248    2826 


DO 
LD 

CP 
JR 
LD 

CP 

JR 
LD3 

JR 

GLOBE    CK 
CP~ 

JR 

LDB 

JR 

NO_USE: 
LDB 
JR 

BAD_MEM: 
LDB 

CONTINUE 
LD 
INC 
CP 
RET 
CLR 
*DD 


OD 


P.8.RW   PATTERN  (R4) 


!    CK    20R    R/W    ! 


NZ,'3AD_M2M       !    NO    R/W/    ! 

R8, CPU_NUM(R4)  !    G-2T    CPU_CNT    ! 

^8,#%0001       !    CK    FOR    LOCAL    ! 

NZ, GLOBE    CK 


"H0,^01 
C0NTINU2 


!    RECORD    LOCAL    ! 


!    CK    FOR    GLOBAL    ! 
NZ,NO   USE      !    1<CPU_NUM<R5    ! 
3H0,#^02  !    RECORD   GLOBAL    ! 


?8,R5 
:Z,NO 
:H0,# 

CONTINUE 


RH0,#%04 
CONTINUE 


RE0,#%05 


C°R1,R0 

Rl,#2 

R9,F4 

Z 

R0 

?.4,#%0800 


!  RECORD    NONJJSE    \ 

!  RECORD   NON_ACCESS    ! 

!  STORE   MA?   BLOCK    ! 

!  NEXT    MA?    BLK    ! 

!  FINISHED    ! 

!  NEXT    MEM    ADR    ! 
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024A  END    SYS    M*P 


024A  DISAELE_PROM      PROCEDURE 

»^-  >«-»•#  ^,  */-  o^  w * .  -  »»*  "J-  y*  »■**  »**  ******  *<»  **»  v.*  v*  v*  o**»*  v*  A  s*i  i';*1*  *_'*  i!*  •',,•  ***  ^f"*1*  *•*  *'*  ***  *'*  »•*  ***  *V 
«r*  t*  i*  *r  *c  *i*  t*  *Y*  ■»»  i*  n*  *»*  *r  »i*  *r"  *i-  *»*  »i*  *r  ^  i*  *r-  *r*  *i*  '  *  •  HP  t*  *v  *r»  *»»  *r*  n*  *i»  *■**  »»*  *i*  rr  *f* 

*  DISABLE_PROM:    REPOSITIONS    CODE    FOR      * 

*  P;<0M    DISABLING    AND    TRANSFER   * 

*  OF    CONTROL   FLOW.  * 

*  REG    USE:    INPUT      R3   =    TRANS    ADR  * 

ENTRY 

R1,R6  !    MOVE    LOCATION    ! 

R4.BGN    CODE 


02  4A 

A 161 

LD 

024C 

3404 

LDAR 

P24E 

0014 

0250 

2102 

LD 

0252 

0003 

!    ACTUAL 
DO 

0254 

21  iD 

LD 

0256 

2F1D 

LD 

0258 

AB20 

DEC 

025A 

E603 

JR 

025C 

A911 

INC 

025E 

*941 

INC 

0260 

E8F9 

OD 

DO    CCDF: 

0262 

1E68 

JP 
BGN    CODE 

0264 

3B16 

OUT 

0266 

FFF0 

0268 

1E38 

J? 

r:2,#3 


R13.0B4  !    GET    INSTRUCTION    ! 

0R1.R13  !    PUT    AT    NEW   LOC    ! 

R2 

Z,DO_CODE 

Rl,#2 

R4,#2 


G?6  !    TRANSFER    CONTROL    ! 


R0M_DISABLE,R1 
0R3 

026A  END      DISABLE_PROM 

END   B00TL0AD2 
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3.      SUPPORT!    MODULE 


Z8000ASM      2.02 
LOC  03J    COD! 


STMT    SOURCE    STATEMENT 


$LISTON 


3 UP POP Tl 
$TTY 


MODULE 


* 
a* 

"4* 

* 


.'<-  •$+  -'-•  *<-•  V»  *'*  V*  V*  *A**J*  -'-  »J«  %•#  »**  «Jr  -i*  „'-  -•-  *,•«■  fc>*  <ju  «V  *f*  ^*  •**■  *?e  *'c  ^*#  V?  V*  »•*  ***  ***  ■»•*  *'*  *•*  ***• 
•i»  ^|«»  »i*  *|»  ^*»  *|*  *|»  >)*  «n»  *i*  *,^*(*  »,«  -,^  *i»  *r»  'i»  'fn*  ***  *i*  *t*  *\*  *<■*  *>*  *»*  hh  *i*  *i*  **N  *V  *P  *i*  *i*  ******  *v* 

SUPP0RT1    MODULE:    MODULE   ONE   EOR  * 

SECONDARY    STORAGE    PRIMITIVE  * 

"FUNCTIONS    SUPPORT.    STRICITLY  * 

HARDWARE    DEPENDENT;    SHOULD  * 

MEET    STORAGE    DEVICE    REQUIRE-  * 

MINTS    FOE    INTERFACING.  * 


*l*    %.»*    v<  -     -  "^    -J, 


%'*■  J-  »*-  »•*  **»  -i.  •>'«  »>*  %'-  *V  **»  *•*!•  »'*  %1»  «,•"»  WU  -Ju  »**  «•>  » '.-  -'-  «.**  ■»■■'  ■«'»  »■*  *'»  -■'■'  «v  »**  *■  V  * 
*i*  »i-  *»~  *(*  i*  *r  *r  't*  *.*  *i*  ***  *r  *i*  *r»  ***  *P  *v  *r  *i*  *»*  *r*  *r*  *»*  *r*  *r  "V  *»*•  *»*  '»*  *r  ■ 


CONSTANT 


RXR 

TXR 

PAR 

PORTAD 

PORTBD 

PORT AC 

PORTBC 

IDPCRT 
ICPORT 

TCMD         := 
TDTA 

BUS    LOCK 

EUSJJNLOC 

VINTR 

VIBIT 

ESCAPE 

3S 

LINDEL 

CR 

LF 

TXOFCH 

TXONCH 

INSIZ 

OUTSIZ 

RESIZ 


=      2 


7 

■  %FFD9 
%FFE1 

■  %FFDB 
%FFE3 

=      %FFC3 
%FFC9 

%FFD2 
%FFD0 

=%FFF9 

•=% FFF8 
=  "    %(2)0001000000000000 

12 
■■  %1B 
=  %09 
■■  %7F 
=  %0D 
=  %0A 
<*  1 1 


%11 

12S 
128 
256 


!  INT3UF  SIZE  ! 
!  OUTBUF  SIZE  ! 
!    RING   BUFFER    SIZE    ! 
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BIT  POSITIONS 

IN 

MONITOR 

TR?WDE 

•  * 

0 

ISTC? 

:  = 

1 

OSTOP 

*  — 

2 

SNDMDE 

•  — 

3 

LDMPE 

:  = 

4 

ESC 

•  ~ 

5 

TXMSK 

:  = 

%6 

FLAG  WORD  ! 


CCMPS 


12 


EXTERN  PL 

GETNXT 

PROCEDURE 

EXTERNAL 

GET ADR 

PROCEDURE 

EXTERNAL 

GMCZAD 

PR( 

3CEDURE 

EXTERNAL 

SNDMCZ 

PROCEDURE 

EXTERNAL 

GETEU? 

PROCEDURE 

EXTERNAL 

SNDCHR 

PROCEDURE 

EXTERN 4L 

Eli  OR 

LABEL 

EXTERNAL 

SKPBLK 

PROCEDURE 

EXTERNAL 

CONVERT 

PROCEDURE 

EXTERN  »L 

GETCHR 

PROCEDURE 

INTERNAL 

^SECTION  DATA  DEC 

$ABS  0 

0000 

INTBUF 

ARRAY 

[128 

BYTE] 

00e0 

OUTBUF 

ARRAY 

[128 

3YTE] 

0100 

RNGBUF 

ARRAY 

[256 

BYTE] 

0200 

MCZBUF 

ARRAY 

[256 

BYTE] 

0300 

BUFAER 

WORD 

0302 

BUFSIZ 

WORD 

0304 

INTPTR 

WORD 

0306 

OUTPTR 

WORD 

0308 

UN  I  MP 

WORD 

230A 

BRKCNT 

WORD 

030C 

NXTPTR 

WORD 

030E 

GETOUT 

WO  RD 

0310 

MCZPUT 

WORD 

0312 

MCZGET 

WORD 

0314 

BPKSTR 

WORD 

0316 

BRKADR 

WORD 

031S 

TMPSP 

WORD 

031 A 

TMPTCW 

WORD 

031C 


MFLAGS    WORD 
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!    USER    REGISTER    STORAGE    ! 


031F 

R0 

WO?D 

0320 

Rl 

WORD 

0322 

R2 

WORD 

0324 

P.  3 

WORD 

0326 

R4 

WORD 

0328 

R5 

WORD 

032A 

R6 

WOPD 

032C 

R7 

WORD 

03  2E 

R9 

WORD 

0330 

R9 

WORD 

0332 

R10 

WORD 

0334 

Rll 

WORD 

0336 

R12" 

WORD 

0338 

R13 

WORD 

033A 

R14 

WORD 

C'33C 

P15 

WORD 

033E 

RPC~ 

WORD 

0340 

RFC" 

WORD 

0342 


RETFY 


WORD 


0000 


0000 

76F2 

LD« 

0002 

0000 

0004 

2101 

LD 

0006 

0080 

0008 

6FF2 

LD 

000A 

0304 

000C 

DFF8 

C  ALR 

000E 

34CA 

LDA 

GLOBAL 

$SECTION    SUPPORTl_PROC 

$REL  0 

GLOBAL 

GETLNE   PROCEDURE 

*  * 

*  GETLNE:  REC  ONE  LINE  INPUT  FROM      * 

*  CONS  (P0RT2),  UP  TO  80-CHR   * 

*  MAX,  STORE  IN  INTBUF  PLUS    * 

*  CR,  AND  ECHO  BACK  TO  CONS.   * 

*  * 

*  REG  USE:  RETURN   RL0=  1ST  CHR  IN  BUF* 

*  AND  Z  IF  CHR  =  CR   * 

*  $ 

ENTRY 

R2, INTBUF(R14)    !  GET  BASE  INT3UF  ! 

R1,#INSIZ  !    GET    MAX    SIZE    ! 

INTPTR(R14),R2 

CONSOL  !    FILL    LINE    IN    INTBUF! 

P10,R12(#S£PBL£ ) 
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3010 

011C' 

0012 

1FA0 

CA.LL 

GR10 

0014 

6BE0 

DEC 

INTPTR(H14 

0016 

0304 

0018 

0A08 

CP3 

RL0,#CR 

001A 

0D0D 

001C 

9E08 

RET 

001E 

END    GETLNE 

!    RETURN    TO    START    ! 


!    GOT    1ST    CHR    =    CR    ! 


001 E 


GLOBAL 

CCNSCL      PROCEDURE 


*  CONSOL:    STORE    CONS    INPUT    LINE    IN 

*  BUFFER    ADDRESS    PROVIDED, 

*  PLACE    CR    AT    END    OF    LINE, 

*  AND   PROVIDE   DELETE    CHAR 

*  U!D   DELETE   LINE   EDIT    FUNC 


201E 
0020 
0022 
0024 

3026 

0028 
002  A 

002C 
002E 
0030 
0032 
0034 
0036 
0038 
003* 


6FE2 
0300 
6FE1 
0302 

61E2 

0300 
8D18 

DFC1 
0A08 
6161 
E704 
0A08 
7E7B 
EF01 
A285 


003C    2E28 


003E  0A08 
0040  0808 
0042    EE11 


*  REG  USE:    INPUT      Rl    =    SIZE    OF   BUFFER  * 

*  R2   =    EUFFER    ADR  * 

*  RETURN   Rl    =    4   OF    ?EC    CHR  * 

*  AND    Z    IF    BUF    LIMIT  * 

*r»  *£  *£  ***  «v  *v*  V  *r  *  V  *?  *i*  SjB  -fi  3gC  *,S  V  *,»  -»•  *\'  *r  *r  «v»  i*  n*  n*  n*  'P  *?  n*  *i*  *r  ^  X*  *r»  5j%  5jC  3ft  *,J  3|c   * 

ENTRY 
LD 


LD 

HDNG: 
LD 

CLR 
REDLOP: 
CALR 
CP3 

JR 
CP3 

JR 

RESB 
UPCASE: 
LDB 


!    SAVE    BOTH    BUF   ADR 
!    AND    EUF    SIZE    I 


BUFADR(R14),R2 
BUFSIZ'VR14)  ,R1 

R2,BUFADR(R14) 
Rl 


CONRD  !  GET    CHAR    AND    ECHO    ! 

RL0,#%61  !  CONVERT    TO   UPPER    CASE! 

C, UPCASE  !  NOT    LOWER    CASE    ! 
RL0,#%73 

NC  .UPCASE  !  YES    LOWER   CASE    ! 

RL0,#5  !  CONVERT    TO   UPCASE    ! 


0R2.RL0 


!    PERFORM   EDIT    FUNCTIONS    ON    INPUT    ! 

CPB  RL0,#BS         !CK    FOR    DEL   CHR    ! 


JR 


NZ,CONTCK 


!    NO,    CONTINUE    CK    ! 
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0  044 

«B20 

DEC 

R2,#l         ! 

YES.  BACKSPACE  ! 

0046 

AB10 

DEC 

Rl 

?04S 

4BE2 

CP 

R2,3UFADR(R14) 

!  NOT  TOO  EAR  ! 

004A 

0300 

004C 

2707 

JR 

C,DO  OVR 

004E 

C820 

LDB 

RL0,#'  ' 

0050 

34CA 

LDA 

P10,P12(#SNDCHP ! 

0052 

01DE' 

0054 

1FA0 

CALL 

GR10         ! 

3LANK  CUT  BAD  CHR 

0056 

C608 

LDB 

FL0,#ES 

0052 

1FA0 

CALL 

GR10 

005A 

E8E8 

JR 

REDLOP       !  CONTINUE ! 

DO  OVR: 

005C 

C82A 

LDB 

RL0,#'*' 

005E 

34CA 

LDA 

R10,R12(SNDCHR; 

) 

0060 

01DS 

0062 

1FA0 

CALL 

0R10          ! 

SEND  PROMPT  ! 

0064 

E8E0 

JR 

CONTCK: 

HDNG          ! 

START  AGAIN  ! 

0066 

0A08 

C?B 

aL0,#LINDEI    I 

1  CK  FOR  LINE  D?L  ! 

0068 

7F7F 

006A 

S609 

JR 

Z, DELINE      ! 

YES ! 

006C 

A920 

IMC 

R2,#l 

006E 

J910 

INC 

PI 

0070 

0A08 

CPE 

RL0,#CR       I 

CK  FOR  CR  ! 

0072 

0D0D 

0074 

E60E 

JR 

Z,ADDLF       ! 

YES ,  ADD  LF  CHR  ! 

0076 

4BE1 

CP 

Rl  fBUFSIZfR14) 

f  SIZE  CK  ! 

0078 

0302 

007A 

EED8 

JR 

NZ, REDLOP     ! 

CK,  GET  NEXT  CER  ! 

007C 

9E06 

RET 
DELINE: 

Z             ! 

TOO  URGE,  E~ROR  ! 

007E 

C85E 

LDB 

PL0,#%5E 

0080 

34CA 

LDA 

R10,R12(SNDCHR; 

!  SMD  LINE  DEL  ! 

0062 

01DE' 

0084 

1FA0 

CALL 

QR10 

0066 

DFF5 

CALF 

NEVLNE        ! 

5TAPT  NEW  LINE  ! 

0088 

C820 

LDB 

RL0,#'  ' 

008A 

34CA 

LDA 

R10,R12(SNDCHR; 

1 

008C 

01DE 

0082 

1FA0 

CALL 

G>R10          ! 

SND  CHR  ! 

0090 

ESC  A 

JR 

HDNG         !  START  AGAIN  ! 

ADDLF: 

0092  C80A  LDB 
0094  34CA  LDri 
0096  01DE 


RL0,#LF 
R10,R12(#SNDCHR) 
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0098 

1FA0 

CALL 

QR10 

009A 

8D43 

FESFLG 

Z 

009C 

9E08 

RET 

P09E 

END    CONS 01 

!    SEND    LE    CHR    ! 


009E 


GLOEAL 

NEWLNE      PROCEDURE 

I  1"*  *i**i*  *l*  T*  'i*  *?  *i*  *i*  1*  *i*  *i"C  ****i'  *P  •?  T"*?  *f*  "P*l"  *t*  *»*■  *>*  *P  *'^  "T*  **"  •Q"  ■¥■  *P  5JC  *i*  5yC  3^'^'  5p  »,»  5j» 

*      NEWLNE:    SENDS    CR   AND    LF   TO    CONSOLE      * 
ENTRY 


?09E 

34  C  A 

LDA 

R10.R12 

00A0 

01DE 

00A2 

C80D 

LDB 

RL0,#CR 

00A4 

1FA0 

CALL 

0R10 

00A6 

C80A 

LDB 

RL0,#LF 

00A8 

1FA0 

CALL 

GR10 

00  A  A 

9E08 

RET 

00AC 

END    NEWLNE 

!    ADR    SNDCHR    IN    R10    ! 


00AC 


GLOBAL 

CONRD      PROCEDURE 

Io,  *1«*L  »'*  ***  -J-  y»  *•*  ***  .J*  »J*  *JU  vl#  <JU  «if  »•*  *»»  V*  %**  «a*  *'*  %**  «Jw  ***  ***  »c»fc*»  *u  w*  *l*  ***  ***  ******  V*  *'»  s*»  »'*  ***  WU 
T»  n*  **•  *r»  t-  «v  *i*  n*  *?  n1  *r  *v»  *v  *?  ^r  *i*  *f  n*  A»  *»*  *r  ^r  n»  n»  **»  -v  *i*  *r  *»*  *r  *p  V  *i*  ***  *r  *v  *i»  *n  ^*  *r 


*  CONRD:    GETS    CHAR    FROM    CONSOLE    INPUT  * 

*  BUFFER    (INTBUF)    AND    SCHOS  * 

*  BACK    TO    CONSOLE.    LOOPS   UNTIL  * 

*  RECEIVE   CHARACTER.  * 

*  REG   USE:    RETURN      RL0=    CHR  * 

*  AND    Z    IF    CHR=CR  * 

*  * 

•v*  n*  n*  i»  -r  *i*  *i*  *<*  ^r-  n*  *r  *i-  A*  *>*  *r  f  ^  **•  *v*  *»»  *r  i*  -v  i*  *p  *»-  *i*  'i*  «v  n*  *»■*  *r  -r  *r  ^*  *i*  n*  *»*  'i-  7i'*   I 

ENTRY 


00  AC 

61S0 

TC:LD 

R0,GETOUT(R14) 

00AE 

030E 

00B0 

4BS0 

C? 

R0 tNXTPTR(R14)            !    COMPARE   GET 

00B2 

030C 

!    PUT    PTRS     ! 

00B4 

E6FB 

JR 

Z,TC                        !    REC    NOTHING ! 

00E6 

93F2 

PUSH 

0R15.B2 

00B8 

34CA 

LDA 

R10,R12(#GET3UF) 

00BA 

0000* 

00BC 

1FA0 

CALL 

0R10                     !    GET    RNGBUF    ADR    ! 

00BE 

6FE0 

LD 

GETCUT(R14) tR0 

00C0 

030E 

00C2 

2028 

LDB 

RL0,OR2              !    STO    CHR   FOR    RTN    ! 

00C4 

97F2 

POP 

R2,0R15 

170 


00C6  0B09 
00C3  AAAA 
00CA  E603 
00CC  34CA 

00CS  01DE' 
00D0  1FA0 


00r2  9E08 
00D4 


!    CHECK    FOR    NON-DISPLAY    FROM    LOAB_FILE    ! 
C?  R9,#%AAM 


JR 

LDA 

CALL 


Z,NC_DIS?LAY 
P10,R12(SNDCHR) 

GRIG 


NO  DISPLAY: 
RET 
END  CONRD 


00D4 


ENTRY 

00D4 

4DE8 

CLR 

00D6 

0310 

00D6 

4DE8 

CLR 

00DA 

0312 

?0DC 

65E0 

SET 

00DS 

031C 

GLOBAL 

QUIT   PROCEDURE 

***  4* 

*  OUIT:    TRANSMITS    ALL    CHR  AND    CR    FROM    * 

*  CONS    TO    MCZ;    THEN  RELAYS    ALL      * 

*  TO    CONS    FROM   MCZ;  AND    ETC.           * 


MCZPUT(R14) 
MCZGET(R14) 

MFLAGS(R14) ,#TRPMDE       !    RESET    3UF    PTRS     ! 
!    AND    ENTER    TRANSPARENT    MODE    ! 


00E0 

61S0 

LD 

00E2 

030E 

00F4 

ABE0 

CP 

00E6 

030C 

00E8 

S60A 

JR 

] 

!  PROCE 

00EA 

34CA 

LDA 

00EC 

0000* 

00EE 

1FA0 

CALL 

00F0 

6FE0 

LD 

00F2 

030E 

00F4 

2028 

LDE 

00F6 

34CA 

LDA 

00F8 

0000* 

00FA 

1FA0 

CALL 

00FC 

EEF1 

JR 

!    CONSOLE   RECEIVE    ROUTINE    ! 
PORTB: 

R0,GETOUT(R14) 


R0,NXTPTR(R14)    !  CK  FOR  CONS  INPUT  ! 

Z, PORTA      !  NO,  CK  MCZ ! 

)NSOLE  INPUT  ! 
R10,R12(#GET3UF) 

GF.10        I  GET  RNGEUF  ADR  ! 
GETOUT(R14) ,R0   !  SET  BEGIN  PTR  ! 

PL0,(?R2 
R10,R12(#SNDMCZ) 

@R10        !  ECHO  CHR  TO  MCZ  ! 
NZ, PORTB    !  CONTINUE  UNTIL  CR  ! 
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!    MCZ    RECEIVE    ROUTINE    ! 
PORTA: 


00FE 

ei(?0 

0102 
0104 
0106 
0108 
010A 
010C 
010E 
0110 

0112 
0114 
0116 
0118 
011 A 
011C 


61E0 
0312 

4BE0 

0310 

E6EC 
34CA 

0000* 

1EA0 
6FE0 
0312 

2028 
34CA 
01DE 
1FA0 

ESF1 


LI) 
CP 

JR 
LDA 

CALL 
LD 

LIB 
LDA 

CALL 

T   • 

END   QUIT 


R0  ,MCZGET(R14) 
R0.MCZPUTU14) 


!    CK   FOR    MCZ    INPUT    ! 


Z.PCRTB  !    NC,    CK    CONSOLE...! 

R10,R12(#GP!CZAD) 

0R1<?  !    GET    MCZ3UF    ADR    ! 

MCZGET(R14) ,R0 

RL0.0R2         !    GET    CHAR    FROM   MCZEUF    ! 
F.10,R12(SNDCHP) 

0R10  !    OUTPUT    CHR   TO    CONSOLE    ! 

PORTA         i    CONTINUE   TIL    E^PTY    ! 


011C 


GLOBAL 

SKPBLK      PROCEDURE 

I**#  sli  Vf  ***  *St  **-  sV  sle  ***  V*  »V  ***  ***■  ***  *ft  »'■  sfc  *'*  *'■*  ■*''*  *'*  •'*  %*f  ^**  ***  V*  *'*  ***  ***  V*  W^  ***  ***  V*  ***  ^*  V-*  ■**-  fc**  *V 
^*  *i*  *r  vr  *r  *r  *r  «*r*  V  *r  *i*  *r  *r  ^r  *v*  *r»  ***  *r  *fi  »r  *r  *r  *r  »r  tp  n-  *i~  *■*  n-  *r  -p  *t*  *»*  *»*  *i*  *•*  *fi  ->*  »r 

3jS  # 

*  SKPBLK:    SKIP    OVER    BLANKS    TO    NEXT  * 

*  CHARACTER.  * 

*  * 

*  REG    USE:      RETURN      RL0    =    1ST    NON-BLX    * 

*  CHAR    AND    Z    IF    =CR   * 

*  * 

ENTRY 

!    SKIP   OVER    BLANKS    TO    NEXT    ARGUMENT    ! 

!    GOT    CR    ! 

!    CK    FOR   BLANK    ! 


!    YES, ! 

!    GOT    CHAR    ! 


011C 

DFE0 

CALR 

GETCHR 

011E 

9E06 

RET 

Z 

0120 

0A08 

CPB 

RL0,#'    ' 

0122 

2020 

0124 

E6FB 

JR 

Z,  SKPBLK 

0126 

9E08 

RET 

0128 

END    SKPBLK 
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012S 


0128  6D33 
012A  0A08 
012C  0D0D 
012E  ES02 
0130  81)81 
0132   9E08 


0134 
0136 
0138 
013A 
013C 
013E 
0140 
0142 
0144 
0146 
0148 
014A 


DFE2 
E70A 
BEB9 
ES38 
DFF0 
9E06 
0A08 
2020 
EEF7 
D016 
8D83 
9E09 


GLOBAL 

GETADR      PROCEDURE 

»«!«  «b  »'*  %b  %U  «'*  »fo  «■*  ,>,  %'-  »y  *''  *•*  *'»  *'-  *'-  « 

-!* 


*  *4*  V  *»*  V  *i*  *»*  *i*  *i*  V  V  *»*  *£  *»*  'i*  V  *i*  n*  V  'i*  'i*  'i*  V 


* 
* 


GETADR:    GETS    NEXT    ARGUMENT    AND  * 

CONVERTS    TO    HEX    ADDRESS.  * 

•JL* 

REG   USE:    INPUT      PL0    =    1ST    CH    OF    aRG    * 

RETURN      R3   =    HEX    ADR  * 

AND    Z,C       IP    CR    ONLY* 

Z.NC    I?    ARG,CR    * 

NZ,NC    IF    ARG.SP    * 


ENTRY 

!    CK    FOR    CR    ONLY    ! 

CLR  R3 

CP3  RL0,#CR  !    CK    FOR    CR    ! 


Jh 

SETFLG 
RET 


NZ.NOTCR 
C 


!    RETURN    FOR   CR    ONLY    ! 


(CONVERT  ASCII    ADDRESS    TO    HEX    ADDRESS    ! 
NOTCR: 

CALR  CONVERT 

JR  CREPERR 

RLD3  RL0.RL3 

RLDB  RL0,RH3 

CALR  GETCER 

RET  Z 

CP3  RL0,#'    ' 


IBYTF  TO    4-BIT    EEX    ! 

!    GOT  BAD   CHR    ! 

ISHFT  LEFT    TO    MSW    ! 

!    GET  CHR   FROM    INTBUF! 


014C    34CA 
014E    0000* 
0150    1EA8 
0152 


JR 

CAL? 
RESFLG 
RET 

REPERR: 
LDA 

JP 
END    GETADR 


NZ ,NCTCR 

SXPBLK 

C 


!  CK    FOR    SPACE    ! 

!    IF    NOT  ,    CCNT ! 

!    SKIP    TO    NEXT    ARG    ! 

!    SPACE    ^FTER    ARG    ! 


R10,R12(#EROR) 
0R10 
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0152 


GLOBAL 

GETNXT      PROCEDURE 

T  s^sjc^s  s",*  *  #  *  *fi  X-  'fi  #  #  *  *  *  *  :<«  :',s  #  j;c  $ ;;:  #  3^ :',;  :;c  %;  sje  jjs  jj:  #  :;c  $  #  #  ^;  $  rf; ; 

*  GETNXT:    SKIP    TO    3EGINING   OF    NEXT 

*  ARGUMENT    IN    COMMAND. 


*  REG    USE:      RETURN      RL0    =    CHAR    OR    CR 

*  AND    Z   IF   =   CR 


ENTRY 

!    SKIP    OVER    CURRENT   ARGUMENT    TO    NEXT    SPACE    ! 


!    RTN    IF   CE=CR    ! 

!    FIND   FIRST    SPACE    ! 


0152 

DFFB 

CALR 

GETCHR 

0154 

9E06 

RET 

Z 

0156 

0A08 

CPB 

RL0,#'    ' 

0158 

2020 

015A 

FEFB 

J~ 

NZ, GETNXT 

015C 

E8DF 

JR 

SKPBLK 

015F 

END    GET 

MXT 

!    NOW    SKI?    BLANKS    ! 


015E 


GLOBAL 

GETCHR      PROCEDURE 

]  i*  ■?■  Xfi  *v  *v  %*3JC  i,C  2iO,c  ^*  %£  5,i  Vn*  *o  **•  VP  *h  nt*t**i*  V  *»'  *c  *fi  *»*  38*  ^r  ^r  *^  *v*  *?•  V  ***  *r>  Xfi  *  *r 


*  GETCHR:    GETS    NEXT    CHR    FROM    INTBUF  * 

*  AND    INCREMENTS    INTPTR.  * 

1*  'I- 

*  REG   USE:    RETURN      RL0    =    CHR  * 

*  AND    Z    IF    CR  * 


$*##*##*#****************  *$#*********3i:*#  f 


!    SAVE    WORK    FEG    ! 


ENTRY 

015E 

93F2 

PUSH 

GR15.R2 

0160 

61E2 

LD 

R2,INTP 

0162 

0304 

3164 

2028 

LDB 

RL0.GR2 

0166 

69E0 

INC 

INTPTR( 

0168 

0304 

016A 

0A08 

CPB 

RL0,#CR 

016C 

0D0D 

016E 

97F2 

POP 

R2.0R15 

0170 

9E08 

RET 

0172 

END    GETCHR 

!    GET    CHR    ! 

1  !    INC    PTR    ! 

!CK    FOR   CR    ! 
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0172 


0172 
0174 
0176 
017S 
017A 
017C 
017E 
0180 
0182 
01S4 
0186 
0188 
016A 
018C 


0A08 
3030 
9E07 
0A08 
3A3A 
E708 
0A08 
4141 
9E07 

0A08 
4747 

EF06 
0206 
0707 


018E  0608 
0190  0F0F 
0192  8D83 
0194   9E08 

0196  8D81 
0198    9E08 

019A 


GLOBAL 

CONVERT      PROCEDURE 

T  *v*  fv  *r  «tt  •»■**»*  m*  *i»  *r  -r*  f  "i*  *i**v  *S*  *p  "i-  t"i*  fv  i*  *v**p  'i**!*  *i*n"  "i**!*  *<*  n**p  *■*  -i**t*  f  •*  **" 

*  CONVERT:    CONVERTS    8-BIT    ASCII    CHR  * 

*  TO  4-3 IT  HEX  VALUE.  VALID  * 
CHR  IS  0-9  OR  A-F;  IE  NOT  * 
CHR,    EXIT   TO    EXEC    EROR  .  * 


*  REG    USE:    INPUT      RL0    =    3-BIT    ASCII         * 

*  HETTJHN    RL0    =    4-BIT    HEX    IN      * 

*  LSW.  * 

3^*  *p  +f   «•!*•  *^  *-p  *|»  »|p.  +f  *y*  "t*  "T*  *t*  *i*  "I*  *"i""  If*  *!"*  1*  T"  "t*  *'*  *P  "**  "I*  T*  *S*  *i*  "i*  *l*  *9*  ""*"*  f"  T*  ^^  'i*  *P  "I*  "**  ^^  I 

ENTRY 

!    CHECK    FOR    VALID    CHAR    ! 


CPB 

RET 
CPB 

Jfi 
CPB 

RET 
CPB 

JR 
SUBB 

NOFIX: 

ANDB 

RESFLG 
RET 
RETSIG: 
SETFLG 

RET 

END    CONVERT 


RL0,#'0'       !  FILTER    < '0 '    ASCII     ! 

C                        !  ERROR    ! 

RL0,#'9'+1  !    CX    IF   DIGIT    ! 

C, NOFIX 

RL0,#'A'       !  FILTER    <'A'    ASCII    ! 


RL0, #'!'+!    IFILTER    >'!*'    ASCII     ! 


NC,  RETSIG 
RL0, #7 


RL0,#%0F 
C 


! ERROR ! 

!    ALPHA    ADJUST    ! 

!    GET    LOW    NIBBLE    ! 

!    RTN    HEX    VALUE    ! 

!    RTN    FOR    BAD    CHR    ! 
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019/1 


GLOBAL 

PBUFNC      LABEL 
PRNTBF      PROCEDURE 

I  V  t*  V  V  *r  'i*  V  *i*  V  *>*  *?  -1-  V  5|»  *r  *i**r  -^  :,*  -v-  W*?  ^r*i*  V  »p  i'Ii,'?;?V'lr'i,'p  vt  5,*  V  n* 


0194  61E2 
019C  0306 
019E    0C25 

01A0  0D0D 
01A2  69E0 
01A4    0306 


01A6    ?6E1 
01AS    0080 


01AA  2016 
01AC  A910 
01 AE  DFE9 
01B0  E604 
01B2  4BE1 
?1B4  0306 
21B6  E7F9 
01B8   E802 


013A    C80A 
71BC    DFF0 


*  PRNTBF:  PRINT    CONTENTS    OF    OUTBUF  * 

*  TO    CONS    WITH    CE    AT   END.  * 

*  PBUFNC:  PRINT    BUFFER    CONTENTS    WITH      * 

*  NO    CR.  * 

*  * 

ENTRY 

!    STORE    CR    IN    OUTBUF    ! 

LD  R2,0UTPTR(R14) 


LDB 
INC 


PBUFNC 
LDA 


(?R2,#CR 
0UTPTR(R14),#1 


R1,0UT3UF(R14 


!    LOAD    ADF.    OF    OUTBUF    ! 


!    OUTPUT    LOOP    ! 
PRNT: 


LDB 
INC 
CALF 

JR 
CP 

JR 
JR 


RL0,0R1 
HI 

5NDCHR 
Z,OUTLF 


!    GET    CHR    ! 
!    INC    INDEX    ! 
!    OUTPUT    CHR    ! 
!    ?CHR    =   CR    ! 


31  ,CUTPTR(R14) 


!    CK    FOR    END    ! 


C,?RNT 
FINI 


!    LOOP ! 

!    FINISHED    ! 


01BE 

76E3 

LD 

01C0 

0080 

01C2 

6FE3 

LD 

01C4 

0306 

01C6 

2100 

LD 

01CS 

003F 

01C£ 

4DE5 

LD 

31CC 

0080 

!     ADD    LF    AFTER    OUTPUT    OF    CR    ! 
OUTLF: 

LDB  RL0,#LF  !    OUTPUT    LF    ! 

CALF.  SNDCHR 

!    FILL    OUTBUF   WITH   BLANKS    AND    RESET    OUTPTR    ! 
FINI: 

R3,0UTBUF(R14) 


OUTPTR(R14) ,R3    !    RESET    PTR    ! 
R0,#OUTSIZ/2-l    !    FILL    CNT    ! 
OUTBUF (R14),#'       ' 
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01CE 

2023 

01D0 

76E2 

LDA 

R2,0UTBUF 

01D2 

0080 

01D4 

A 123 

LD 

R3  ,R2 

01D6 

A931 

IMC 

R3,#2 

01D8 

BB21 

LDIw 

(?B3,GR2,R0 

01EA 

0030 

01DC 

9E08 

RET 

01DF 

END    PRNTBF 

!    FILL    CUTBUF    ! 


01  BE 


GLOEAL 

SNDCHR      PROCEDURE 

*  SNDCHR:    CK    MONITOR   FLAG    WORD    FOR  * 

*  OUTPUT    STOP    SIGNAL    (OSTOP);  * 

*  IF   NOT,    SEND    CHAR    TO    CONS.  * 

*r  *>* 

*  REG    USE:    INPUT        RL0=    CHR  * 

*  RETURN      RL0=    CEfc    AND    Z    IF  * 

*  CER    =    CR.  * 


01DE  67E2 
01E0  031C 
01E2    EEFD 


01E4 
01E6 
01E8 
01EA 
01FC 
01EE 
01F0 
01F2 
01F4 
01F6 


3A04 
FFE3 
A600 
E6F9 
3.A86 
FFE1 
0A08 
0D0D 
9E08 


.*,-  *^-»  ^y*  *y*  ^p  *,-»  *f*  t  r,*^*  *l*  *V  TP  "t'T*  *t*  T*  *V*  1*  A*  ***  *!****  *^  *V*  *T*  T*  "i*  *l*  1*  1*  "1*  1*^P  *l*  "V"  *f  T*  "Y*  *V    \ 

ENTRY 

!    WAIT    FOR    OUTPUT    OK    SIGNAL    ! 

BIT  MFLAGS(R14),#OSTOP         !    CK    FLAG    ! 


JR  NZ, SNDCHR 

! OUTPUT    CHAR    TO   TERMINAL    ! 


INB 

BITB 

JR 

OUTB 

CPB 

R^T 
END   SNDCHR 


RH0.PORTBC 

xJ.H0,#TXR 
Z, SNDCHR 
?ORTBD,RL0 

RL0,#CR 


!    GET    PORT    STATUS    ! 

!    TRANS    PDY?    ! 
!    NO,    CONTINUE...! 
!    YES,    OUTPUT    CHR    ! 
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01E6 


GLOBAL 
CONVB 
CONVW 


LABEL 
PROCEDURE 


f  •y'^Vi^i^  Vt  'i* "P 3?  v  3»*n*  V  V  v ^i*  Vr  t*  v  vt»  Sp 3fC  ^S  3QS 3j(  3JS  SQC 9QC ^*3§C ~fi 3QB  3QC 3§C 3QC 9gC 3{i 


01F6   A050 
01F8   DFFF 


01FA    *0P0 


CCNVW:    CONVERT    INTERNAL    fc'ORD,    4- 
4 -BIT   HEX    VALUES    TO   FOUF. 

8-BIT    ASCII    REPRESENTATIONS 
OF    THE    HEX    VALUES. 

CONVB:    CONVERT    INTERNAL    BYTE   HEX 
VALUE    TO    ASCII    CHARACTERS. 

REG   USE:    INPUT      R5   =    WORD/BYTE'S) 

R3   =    CKSUM    ACCUM 
RETURN    R3   =   UPDATED    ACCUM 
AND   ASCII    CHR 
IN    OUTBUF 


* 

* 


«l>  »•*  «■*«  »>,.  v»  %**  »'*  J1*  v  ■  V1-  ***  *'*  *^*  *'*  ***  *^*  ifc  *■**  V*  %'*  »•*  »**  ***  V*  **^  ***  **f  *'*  **#  ***  ***  ***  V*  ***  sfc  ^**  \*t  *fe  V*  V*   I 
•■i*  #(•  *|S  *,fc  *j»  9ft  *)■*  *|*  ?[»  J^*  *(*  «-t»  *p  *|»  *i*  *^»  *,*  *(*  *i»  J|*  *|»  *|»  *f»  rf|»  *,»  *^»  *»»  »,»  *|*  «v»  •■,»  *|»  *^  «%»  »|%  Jj»  >j*  *|»  *^  S|»    | 

ENTRY 

!    CONVERT    WORD    ! 

LDB  RE0.RH5 

CALF.  NIBBLE 

!    CONVERT   BYTE    ENTRY    POINT    ! 
CONVB: 

LDB  RHZ.RL5 


!    1ST    BYTE    ! 


01EC  3E08 
01FF  DFEF 
0200    BE08 


3202 
0204 
0206 
0208 
020  A 
020C 
020E 
0210 


0608 
0E0F 
308B 
0A0S 
0A0A 
E702 
0008 
0707 


0212    0008 
0214   3030 


NIBBLE: 

RLDB  RL0,RH0  !    FIRST    NIBBLE    ! 

CALa  CONPUT 

RLDB  RL0,RH0  !  NEXT  NIBBLE  ! 
! CONVERT  NIBBLE  TO  ASCII  CHAR  AND  STORE  ! 
CONPUT: 

ANDB  RL0,#%0E  !    GST    NIBBLE    ! 

ADDB  RL3,RL0  !    UPDATE   CKSUM    ! 

CP3  RL0,#%0A  !    0-9?    ! 

JF  C,    ASCII  !    YES...     ! 

ADD3  RL0,#7  !    NO,    CONVERT    CHR    ! 

ASCII: 

ADDB  RL0,#%30  !    CONVERT   TO   ASCII     ! 


0216  93F1 
0213  61E1 
021A    0306 


!    STORE    IF   OUTBUF    ! 

PUSH  GR15.R1  !    SAVE   Rl    ! 

LD  R1,0UTPTR(R14) 
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021C 

2Eie 

LDE 

@R1,RL0 

P21E 

69E0 

INC 

OUTPTR(R14) 

0220 

0306 

0222 

97E1 

PO? 

Rl  ,GR15 

0224 

9E08 

RET 

0226 

END  CONVW 

!  STORE  CHR  ! 


END  SUPPORTl 
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4.       SUPPCRT2    MODULE 


Z8000ASM      2.02 
LOC  OBJ    CODE 


STMT    SOURC?   STATEMENT 


1    SUPP0RT2    MODULE 
$LISTON      $TTY 

n"  "T*  "P  •**  *ir  t*  *p  *i*  *i*  ***  *i*  f  *S*  *i*  ^"  n-*  *f*  *i*  "f>  *i*  *i*  *i*  ir  ***  *r  **"  *i*  *t*  ***  *•*  "**  •"!*  *i*  ■!■  *»*  *"i*  *n  ■¥"  1*  *> 

y-  »'* 

*  SUPPORT    TWO   MODULE:    MODULE    TWO    70R  * 

*  SECONDARY    STORAGE    INTERFACING  * 

*  :;: 


CONSTANT 

RXR 

!=      2 

TXR 

=      0 

PAR 

=      7 

PORTAD         ! 

:=      %FFD9 

PORTBD 

•=      %FFE1 

PORTAC 

=      %FFDB 

P0RT3C 

:=      %FFE3 

IDPORT         : 

=      %FFCB 

ICPORT 

=      %FFC9 

TCMD         := 

%FFD2 

TDTA         := 

%FFD0 

BUS_LOCE    :=%FFF9 
BUS    UNLOCK    :=%FFFS 


V I N  TR 

;  = 

%(2)000100 

VISIT 

= 

12 

ESCAPE 

:  = 

£13 

BS 

= 

%m 

LINDEL 

;  = 

%7F 

CR 

:  = 

%0D 

LF 

;  = 

%0A 

TXOFCH         : 

;  = 

%13 

TXONCH 

;  = 

%11 

INSIZ           : 

= 

128 

OUTSIZ         : 

= 

128 

RBSIZ 

:  = 

256 

IT    POSITIC 

)NS 

IN    MONITOR 

TRPMDE        : 

= 

0 

ISTCP 

;  = 

1 

OSTOP 

•  = 

2 

!    INT3UF   SIZE    ! 
!    OUTBUF   SIZE    ! 
!    RING    BUFFER    SIZE    ! 
FLAG    WORD    ! 
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SNDMDE 

:=   3 

LDMDE 

:=   4 

ESC 

:=   5 

TXMSK 

:=  %6 

EXTERNAL 

EXEC 

LABEL 

PBUENC 

LABEL 

NMI  RTN 

LABEL 

CONVW 

PROCEDURE 

PPNTBF 

PROCEDURE 

BRKROU 

LAEEL 

NEWLNE 

PROCEDURE 

GETBUF 

PROCEDURE 

GETLNE 

PROCEDURE 

LOADFL 

PROCEDURE 

INTERNAL 

$SECTION  DATA  DEC 

$A3S  0 

0000 

INTBUF 

ARRAY 

[128 

BYTE] 

0060 

OUTBUF 

ARRAY 

[128 

BYTE] 

0100 

RNGBUF 

ARRAY 

[256 

BYTE] 

0200 

KCZBUF 

ARRAY 

[256 

BYTE] 

0300 

BUFADR 

WORD 

0302 

BUFSIZ 

WORD 

0304 

INTPTR 

WORD 

0306 

OUTPTR 

WORD 

0308 

UNIMP 

WORD 

030  A 

BP.KCNT 

WORD 

030C 

NXTPTR 

WORD 

030E 

GETOUT 

WORD 

0310 

MCZPUT 

WORD 

0312 

MCZGET 

WORD 

0314 

BRKSTH 

WORD 

0316 

BRKADR 

WORD 

0318 

TMPSP 

WORD 

031A 

TMPFCW 

WORD 

03 1C 


031E 


MEL AGS         WORD 
!    USER   REGISTER    STORAGE    ! 
R0  WORD 
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032? 

Rl 

a  CRD 

0322 

R2 

WORD 

0324 

R3 

WORD 

0326 

R4 

WORD 

0328 

R5 

WORD 

032A 

R6 

WORD 

032C 

R7 

WORD 

032E 

R8 

WORD 

0330 

R9 

WORD 

0332 

R10 

WORD 

0334 

Ell 

WORD 

0336 

R12 

WORD 

0338 

R13 

WORD 

033A 

R14 

WORD 

033C 

R15 

WORD 

033E 

RPC 

WORD 

0340 

REC_ 

WORD 

0342 

RETRY 

WORD 

0344 

ADR_STP 

GLOBAL 

WORD 

^SECTION    SU 

PP0RT2 

$REL    0 

GLOBAL 

0000 

NMI      PROCEDURE 

PROC 


I  *p  *P  T*  •t*  "f"  5J*  *p  5p  pQC  5]4  *f*  «^»  Jfm  5J»  i^C  ^,»  *f»  3|i  #^C  *,*  5|*  *^»  *,-  5i%  3»««  *y"  <5*  *\*  ^^  ^*  *<^  *v*  *P  *P  *8*  *i*  *P  *P  *V*  *i* 

*  * 

*  NMI    INT:    NON-MASKABLE    INTERRUPT  * 

*  HANDLER    FOR    RETURN      TO  * 

*  INITIALIZATION    ENVIRONMENT   * 

*  DUE   TO    ERROR    IN    MCZ    LOAD.       * 

*  * 

!    RESTORE   STACK    PTR    ! 


ENTRY 

0000    010E 

ADD 

315, #6               !    R 

0002    0006 

0004   76CA 

LDA 

R10,NMI_RTN(R12 

0006    0000* 

0008    1EA8 

JP 

OR10 

000A 

END    NMI 

182 


000A 


GLOBAL 

LOAD    FILE      PROCEDURE 


«t>  -j-  •!..  »'- 


.  *»-  «,»*  »»,.  .»*  u.  * 


-■-  %** ,'-  >» 


U  O-  *'*  «f>  »**  dU  »»*  O-  «J*  <i«  *'-  *'*  -'- 

r  *r  nf*  •**  *i»  *i*  i*  *r*  n*  n*  *r  *f»  -i- 


000A  61E0 
000C  030C 
000E  A109 
0010  76CA 
0012  0128' 
0014    1FA0 

0016  8D08 
0018    2048 

001A  A940 
001C  8109 
001E  6FE9 
0020    030C 


* 
* 


LOAD    FILE:    LOADS    MCZ    FILENAME    INTO 
RINGBUFFER    (CONS    INPUT); 
CONVERTS    LOAD    «DR    (R3) 
INTO    ASCII      CFAR      AND 
STORES    IN    RING3UFFER. 


REG   USE:    INPUT 


R3   =    HEX    LOAD    ADR 
R4   =    FILENAME   ADR 


ENTRY 

!    LOAD    FILENAME    INTO    RINGBUFFER    ! 
LD  R0,NXTPTR(R14) 


LD 

LDA 


R9.R0  !    SAVE    RINGBUF    OFFSET    ! 

P10,GETBUF(R12) 


CALL  3R10 

!    RETURNS    P2   =    ADR    i 
CLR  R0 

LDB  RL0,CR4 


!    CONVERT    TO    ADP    ! 


INC 
ADD 
LD 


!    1ST    3YTE=N0.    CHR    ! 

!    IN    FILENAME    ! 
R4 

R9,R0  !    UPDATE    OFFSET    ! 

NXT?TR(R14),R9 


0022    BA41 
0024    0020 


LDIRB 


GR2fGR4,E0       !    ENTER    FILENAME    ! 


.'CONVERT    LOAD   ADDRESS    TO    ASCII    ! 


0026 
0028 
002A 
002C 
002E 
0030 
0032 
0034 
0036 


0B03 

FFFE 

E610 

A032 
DFDA 
A124 
A0B2 
DFDD 
A125 


0038  61E0 
003A  030C 
003C  76CA 
003E    0128' 


CP 

JR 

LDB 

CALR 

LD 

LDB 
CALR 

LD 


R3f#<$FFFE         !  CK    FOR    LOAD    ADR    ! 

Z,LD    FILE         !  USE    IMAGED    ADR    ! 

RH2.RH3  !  FIRST    BYTE    ! 

HEX_TO_ASCII 

R4.R2  !  SAVE    MS3'S    ! 

RH2.RL3  !  GET    SECOND    BYTE    ! 

HEX    TO_ASCII 

R5tR2  !  SAVE    LSB'S    ! 


!    LOAD    ADDRESS    IN    RINGBUFFER    I 

LD  R0,NXTPTR(R14)       !    RINGBF   OFFSET    ! 


LDA 


R10.GETBUFU12 
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0040  1FA0 
0042  2F24 

0044  3325 
0046  0002 

0045  69E3 
004A  030C 


004C  61E0 
004E  030C 
0050  76CA 
0052  0128' 
0054  1FA0 
0056  6FE0 

0059  030C 
005*  0C25 
005C  0D0D 

005E  2109 

0060  AAA A 


CALL 

LD 
LD 

INC 


9R10  !  CONVERT  TO  ADR  ! 

GR2.R4        !  ENTER  MSB'S  ! 
R2{#2) ,R5        !  ENTER  LSP  'S  ! 

NXTPTR(R14) ,#4       !    UPDATE    PTE    ! 


LD_EILE: 

!  INSERT  CARRIAGE  RETURN  ! 
LD 


LDA 

CALL 
LD 

LDB 


R0,,MXTPTR(R14) 
R13,GETBUF(R12) 

GR10 
NXTPTR(R14) ,  R0 

0R2,#^0D 


!  LOAD  FILE  WITH  NO  CONSOLS  PROMPTING  ! 

LD         R9,#%AAAA     !  NO  PROMPT  SIGNAL  ! 


0062  76CA 
0064  0000* 
0066  1FA0 

0068  7C05 
006A  76CA 
006C  0000* 
006E  1FA0 
0070  eD98 

0072  61E1 
0074  030C 
0076  6FE1 
0078  030E 
007 A  9E08 

007C 


!  GET  COMMAND  ! 

LDA        R10,GETLNE(R12) 


CALL 

EI 
LDA 

CALL 

CLR 

LD 
LD 
RET 
END    LOAD    FILE 


OR10 

VI  !  ENABLE  VECTORED  INT  ! 

R10,LOADFL(R12) 


OR10 
R9 


!  LOAD  FILE  ! 

!  DELETE  SIGNAL  ! 


R1,NXTPTR(R14) 

GET0UT(R14) ,R1         ! RESET    PTRS     ! 
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007C 


007C  BE2A 
0075    DFFD 

0080  A0A8 
0082  BE2A 
0084    A082 


HEX_TO_ASCII       PROCEDURE 

f  'r  n*-  *i*  »»»  «*•  *i-  *c  »r  n*  *\*  'i*  ***  *»»  'i*  *i»  *i*  »^  *i"*  *r  i*  -."  *i»  "i"  «t*  *F  "i*  *r  *r  *.»  *«-  *i*  *»*  n*  i*  *i*  *r  -r  *r  *f  *r 

'*  # 

*  HEX_TO_ASCII:    CONVERTS    HEX    ADR    (TVO    * 

*  4-BIT    VALUES)    TO    ASCII    (TWO    * 

*  9-BIT    VALUES) .  * 

*  * 

*  REG-    USE:    INPUT      RH2   =    INPUT    BYTE  * 

ENTRY 

RLDB  RL2.RH2 

CALR  HEX_ASCII 

LD3  RL0.RL2 

RLDB  RL2.RH2 

LDB  RH2.RL3 


!  CONVERT    1ST    NIBBLE    ! 

!  TEMP    STORE    BYTE    ! 

!  CONVEFT    2ND    NIBBLE    ! 

I  RELOAD   3YTE    ! 


0086  060A 
0088  0F0F 
008A  0A0A 
008C  0A04 
006E  E702 
0090  000A 
0092    0707 


HEX_ASCII 
ANDB 

CPB 
ADDB 


?L2,#%0F 
RL2,#%0A 


!    GET    NIBBLE    ! 
!     '0-9'?    ! 


C    CON V    ASCII 

RL2t#7~  !     CONVERT    NUMERAL    ! 


0094    000A 
0096   3030 


CONV_ASCII : 

ADDS  RL2,#%30 


!    CONV    TO    ASCII     ! 


0098    9E08 
009A 


009A 


009 A  3 A 04 
009C  FFDB 
009E  A600 
00 A 0  E6FC 
00 A2   3 AS 6 


RET 
END   HEX_TO_ASCII 

GLOBAL 

SNDMCZ      PROCEDURE 

!<Jt*    <J*   O'  »'«-  -A.  -.'*  *>V  •<■»  *■'<•  «V  -1"  »*"  »'"  *■'■*  *'*  *'*  •"•'*  '**  ***  *V  V'  *''  **-  *'*  »'*  *•'   -1-  *'*  *»'*  °-  *■'*  *■'»  *'*  -'"  •.'*  ***  "'-  -'-  *'-  -  :  " 
•F  ***  *i»  *r  *p  *<*  n*  *•»*  *i* *f"  *«*  *»* *t*  ^yttt  *»*  *i*  *»*  *r  *i»  "f -v  *«-  ttt  *t*  *p  *c  nr* T  n*  *r»  *r  *r  -»*  n* 

aje  * 

*  SNDMCZ:    OUTPUT    CHAR    TO   SERIAL   PORT      * 

*  ONE    (MCZ    SYS) .  * 

*  REG   USE:    INPUT      RL3    =    CHAR  * 

*  RETURN    Z    IF    CHAR    =    CR  * 

*  * 

ENTRY 

INB  RH0.PORTAC  !    GET    STATUS    ! 

3ITB             RH0,#TXR                   !    TRANSMIT    RDY?    ! 
JR  Z,  SNDMCZ  !    NOT    YET ! 

OUTB  PORTAD,RL0  !    YES,    SND    CHR    ! 
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20A4  FFD9 
00A6  0A08 
00A8  0D0D 
00AA  QE08 
00AC 


00AC 


CPS 

RET 
END  SNDMCZ 


RL£,#CR 


GLOBAL 

SNDMSG   PROCEDURE 


00AC 

34E1 

LDA 

00  A  E 

0080 

00EO 

6D08 

CLR 

00B2 

2028 

LD3 

00B4 

8101 

ADD 

00B6 

33E1 

LD 

00B9 

0306 

00BA 

A920 

INC 

00PC 

34E1 

LDA 

00  BE 

0080 

eece 

BA21 

LDIRB 

00C2 

0010 

00C4 

34CA 

LDA 

00C6 

0000* 

00C8 

1EA8 

JP 

00CA 

END  SNDMSG 

*  SNDMSG:  SEND  MSG  SPECIFIED  TO  CONS   * 

*  (P0RT2).  FIRST  BYTE  OF  MSG   * 

*  IS  THE  DECIMAL  LENGTH  IN     * 

*  WCRDS.  * 

*  REG  USE:  INPUT   P.2  =  MSG  ADDR  * 

■A.  JU 

•r  'f 

ENTRY 

RlfR14(#0UT3UF) 


F0 

RL0.3R2 

R1.R0 

R14(#0UTPTE),R1 


!    GET    BYTE    COUNT    ! 


R2  !    SETUP    FOR    TRANSFER    ! 

R1,R14(#0UTBUF) 

(3Rlt0R2tR0       !    TRANSFER    TO    CUTBUF    ! 

R10,R12(#PBUFNC) 

0R10  !    OUTPUT    TO    CONS    ! 
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00CA 


GLOBAL 
CCNINT 


PROCSrURE 


Tkb  y*  •**  o*  *•*  y*  *V  *'*  **#  *■*  »V  *•*  V*  **«*  Vi*  V*  *V  »v  »•*  •.'<•  %•* 


w>f   s*.  fcV  *'*  «.L*  *««  fc<*  »•*  -'  *  »'-  *V   »'  -  »'*  aM  •.'-  * 
*l»  >|»  *^   *|»  *|»  *|»  *|»  *y»  *i»  *f*  *|*  ^(»  J|*  *|»  *|-»  ■ 


*  CONINT:    CONS    (P0RT2)    INPUT    INT    HDLR    * 

*  ROUTINE,    WHICH   GETS    REC    CHR    * 

*  FROM    USART.    REC    CHR    IS    CK         * 

*  FOR    TXOFCH   OR    TXC.MCH,    AND         * 

*  MFLAGS    ADJUSTED    *CC0FDINGLY    * 

*  TO    SIGNAL    PROCEDURES. 


00CA  93F0 
00CC  93F1 
00CE  93F2 
00D0  93FE 
00D2  7D15 
00D4    211E 


00D6  3A94 
00D8  FFE1 
00DA  A297 
00DC  67E0 
00DE   031C 

00E0  FE18 
00E2  0A09 
00E4  1111 
00E6  FE03 
00E8  63E2 
00EA    031C 

00EC    E818 


00EE 
00F0 
00F2 
00F4 
00F6 
00F8 


0A09 
1313 

EE03 
65E2 
031C 

E812 


ENTRY 
PUSH 
PUSH 
PUSH 
PUSH 
LDCTL 
LD 


*»*  •<»  %•*  »o 


i"»  *|»  *j»  3gS  *|C  *,»  3J>  *^C  3,*  5JC  yj»  *,»  .f^  *|*  i,^  3JC  *^«  7,*  5JC  3JC  *|C  Jt»  5^»  J,'*  «(%  J,~  3JX    J 


0R15.R0 

G>R15,R1 

tfR15,R2 

0R15.R14 

R1,PSAP0FF 

R14,0R1 


!    SAVE    WORK    KEGS     ! 
!    DATA    AREA    ADR    ! 


!    GET    CHAR    AND    CHECK    FOR    TXCFCH    OR    TXCNCH    ! 


IN"B 

RES3 
BIT 


JR 

CPB 

JR 
RES 


JR 
AGAIN: 
CPB 

JR 
SET 

JR 


RL1.POETBD       !    GET   US *RT    DATA    ! 

RL1,#PAB         !    CLR    PARITY    PIT    ! 
MFLAGS(R14) ,#TR?^DE 

!    TRANSPARENT    MODE    ! 
NZ.PUTCHR  !    YES ! 

RLl,#TXONCH         !    NO,    CK   FOR    TXONCH! 

NZ, AGAIN  !    NO ! 

MFLAGS (R14) ,#OSTO?       !    RESET    TO,     ! 


FINISH 
RL1,#TXCTCH 


!    RESUME    OUTPUT    ! 


!    CK    FOR    TXCFCH    ! 


NZ.AGAIN2  !    NO ! 

MFLAGS(R14) ,#OSTCP       !    STOP    OUTPUT    ! 

FINISH 


00FA 

0A09 

CPB 

00FC 

1B1B 

00FS 

EE09 

J? 

0100 

67S3 

BIT 

0102 

031C 

!    CHECK    FOP    ESCAPE    CHARACTER    ! 
AGAIN2: 

RL1,#ESCAPE 


NZ,PUTCHR  !    NO, ! 

MFLAGS(R14),#SNDMDE    !    YES,    CK    SND    MDE! 
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0104 

EE03 

J?. 

0106 

67E4 

BIT 

0178 

?31C 

010A 

E603 

JR 

ESCP: 

010C 

65E5 

SET 

010E 

031G 

0110 

S806 

JR 

0112  31E0 
0114  03*C 
0116  DFF8 
0118  33E0 
01 1A  030C 
011C    2E29 


011E  97FE 
0120  97F2 
0122  97F1 
0124  97E0 
0126  7E00 
0128 


NZ.ESC?  !    YES ! 

MFLAGS(R14)  ,#LD,MDE    !    NO,    CK    LD    MDE    ! 

Z.PUTCHK  !    NO    ! 

MFLAG-S(R14),#SSC       !    SET    ESCAPE    BIT    ! 
FINISH 


GETBUF  !    GET    RNGBUF    A  DDR    ! 

R14(#NXTPTR)  ,R0 


!    PRIMARY   SAVE    CHARACTER   ROUTINE    ! 
PUTCHR: 

LD  R0,R14(#NXT?TR) 

CALR 
LD 

LDB 

FINISH: 

POP 

POP 

POP 

POP 

IRET 
END    CONINT 


GR2tRLl 


R14.GR15 

R2,@R15 
HI  ,@R15 

R0,OR15 


!    PUT    CHR    IN    RNG3UF    ! 


!    RESTORE    WORK    REGS    ! 


0128 


GLOBAL 

GETBUF      PROCEDURE 

*  GETBUF:    DETERMINES    POSITION    IN 

RINGBUFFER   TO    PUT    OR    GET 

*  NEXT    CHAR. 

*•- 

*  REG   USE:    INPUT      R0   =    CURRENT    INDEX 

*  RETURN    R0   =    NEW    INDEX 

*  R2   =    ADR    OF    RNGBUF 


# 


V* 

###:{:### 

S^5S3j£^C^(S5iS^<S^SjS3jS>^S^5^X;Sr5{«5lt5!:**5!;5cSi:'!«5{i5t'5!«S,,S5)S9r5|SSlS  f 

ENTRY 

0128 

93FD 

PUSH 

0R15.R13 

012?. 

A102 

LD 

R2.R0 

012C 

A  900 

INC 

R0,#1 

I    INC    PTR    ! 

012E 

0B00 

CP 

R0,#RBSIZ 

!    WRAP    AROUND    ! 

0130 

0100 

0132 

EE01 

JR 

MZ,G3 

0134 

8D08 

CLR 

R0 

!    RESET    INDEX    ! 

0136 

34ED 

G3 

:LDA 

R13,R14(#RNGBUF)              NEW    ADR 

0138 

0100 

013A 

81D2 

ADD 

R2,R13 

138 


013C  97FD 
013E  9F03 
0140 


PO? 

PET 
END    GETEUF 


R13,@R15 


0140 


GLOBAL 

MCZHND      PROCEDURE 

(i't  I'Z^Z.   "V  S!j  "'*  1^  ^-Z  -'C  "''  i  V**1*  ******  »-*'5**  »VV*  >•*  *i-  -■-  -V  -■'*  o-  *I#M«  >*,  %*-  *♦*«.<*  *'*%•*».'*  a*v..i*  v>-  y-  **• 


*      MCZHND 


MCZ    (SERIAL    P0RT1)    INPUT 
INTERRUPT    HANDLER    ROUTINE 
WHICH   GETS    RECEIVED    CHAR 
FROM    US ART,    AND    STORES    IN 
MCZBUF. 


0140 
0142 
0144 
0146 
0148 
014A 

014C 

014E 
0150 
0152 
0154 
0156 
0158 
015A 
015C 


93E0 
93E1 
93F2 
93FE 
7D15 
211E 

3A94 

FFD9 
a  297 
31E0 
0310 
PFF3 
33E0 
0310 
2E29 


015E  97FE 
0160  97F2 
0162  97 Fl 
0164  97F0 
0166  7B00 
0168 


ENTRY 
PUSH 
PUSH 
PUSH 
PUSH 
LDCTL 
LD 


GR15.R0 

GR15.P1 

GR15.R2 

GR15.R14 

Rl.PSAPOFF 

R14.GR1 


!    GET    CHAR    FROM   MCZ    ! 


1MB 

RESB 
LD 

CALR 

LD 

LDB 


RL1.PORTAD 


!    SAVE   WORK    REGS     ! 

!    DAT A_ AREA   ADR    ! 
!    GET    CHR    ! 


RLlf#?AR  !    RESET    PARITY    ! . 

R0,R14(#MCZPUT) 

GMCZAD  !    GET    MCZBUF    ADR    ! 

R14(#MCZPUT) ,  R0 


@R2,RL1 


!RESTORE  WORK    REGS    f 

POP  R14.PR15 

POP  R2.GR15 

POP  R1.GR15 

POP  R0.GR15 
I  RET 

END    MCZHND 


!    SAVE    CHAR    ! 
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GLOBAL 
3168  GMCZ AD      PROCEDURE 

I  -»"  'Crfi   *.»  *r  Vn«  *i*  W  *<*  V*.*  -.»*,>  5p  V  *.^  *i*  *!*  'i-  *i*5(S  V  >,<  S,w,S  5,t  if!  3,C  5^5,1  5,*3,t  ?,i  ?J*  9|S  S,<  ^,*  V 
*<-  j- 

*  GMCZAD:    GET    NEXT    ADR    OF   MCZ    BUFFER      * 

*  TC    STORE    OR   GET    CHARACTER.      * 

*  REG   USE:    INPUT      R0   =    PTE    IN    MCZBUF      * 

*  RETURN   R0   =    NEW    PTR    IN    EUF   * 

*  R2   =    BGN    OF    MCZBUF      * 

*  * 

y-  »'*  ..1*  »•'  *•-  «JU  -l-  *V  JU  U»   -■*  *X>«1*  O,*'*.  »**  *G  O*  »'-  *'-  «>*«'«  O*  »•*  V*  *''-'■•  *'-  *»»  -•-  -■*  »'-  «'*«U  V-  %J-  *•>  .i-  v»»  -'.  f 

-V  ^,»  *,»  *,»  f  ^»  »,»  *,-  -!-  «-,*  *,*  -i^*-,^  -i-  >i**  '( •  *(*  *t*  *i*  ***  *»■*  *?•  *»*  *p  nr  ***  *»*•  *»*  n*  *i*  *i*  ■¥■  *i*  *i*  *i*  *»*  •8*  *f*  *i*  *B*  I 

ENTRY 

0168    93FD  PUSH 

016A    A102  LD 

016C    A900  INC 

016F    0B00  CP 
0170    0100 

0172    EE01  JR 

0174   9D08  CLR                "0                             !    RESET    OFFSET    ! 

GBZ: 

0176   34FD  LDA                R13, R14( #MCZBUF )          !    GET    ADR     ! 
0178    0200 

217A    31D2  ADD                R2fR13 

017C    97FD  POP                R13.GR15 

017E    9E08  RET 

0190  END   GMCZAD 

END    SUPP0RT2 


@R15,R13 

R2 

,R0 

R0 

.#1 

R0 

,#RBSIZ 

NZ 

,GBZ 

R0 
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SUPP0ET3    MODULE 


Z8000ASM      2.02 
LOC  CBJ    COTE 


STMT    SOURCE    STATEMENT 


1    SUPPOPT3    MODULE 
$LISTON      $TTY 

«»**  iW*  "-'f  -'*  *■'*  V*  ***  -•'»  **-  **■*  «*•**'*  »■•*.'-  -'-  ■*•*  *<*«'*  »■#  *•**•#  *ju  »V  >'«  «'•  *Ai  »•-  o,  *v  •*•*  *>>  •.'-•  JU  -'-  %'*  -<-  »v  -■-  -•» 
*\*  t*'!*  *n  ^r*  *P  n*  *Y»  *r*  *p  *r*  "i****  "i**!*  *i*  »i*  i*  'i*  *i*  *i*  *■•**»*  •(****  i*  -t*  *p  *i*  *i*  *»*  n^  hi*  '»"  *t*  *»*  *C  *v  *»■"  *C* 


SUPP0RT3   MODULE:    MODULE   THREE   FOR 
SECONDARY    STORAGE   PRIMITIVES 
FUNCTIONS    SUPPORT.    STRICTLY 
HARDWARE    DEPENDENT;    SHOULD 
MEET    STORAGE    DEVICE    REQUIRE- 
MENTS   FOR    INTERFACING. 


* 

»-■  -  «J*  j.  ..■-  ~i'  *'*  V*  *'*  **■*  ***■  ***  *'*  *V  ***  ***  ***  *V  ***  ***  ***  ***  **•  *J*  *'*  ***  ***  ■»'*  *'*  *'*  *'*  ***  *■*■*  V*  ***  ***  ***  »**  *'*  *'■*  ***  f 

«y»  *|-»  -^  »t»  -,»  »-,»  .",-  -,«  .-,-*  .»,-  ^,»  •  ,-  *|^  .  ,-  ~y    *,-  »^»  «,■»  »  .-  »,*  '  -  .-,.  *|»  ^|*  *,<■  »)>•  *{»  »,»  «>,»  rt%   *(»  »,»  «■(*  **p  •,»  *1|*  *f»  *f»  *^»  *|»   I 


NOTE:    DUPLICATE  OF  MONITOR    LOAD    CMD    * 
MODULE.  * 


CONSTANT 

RXR 
TXR 

PAR 

PORTAD 

PORTBD 

PORTAC 

PORTBC 

IDPORT 
ICPORT 

TCMD 
TDTA 


2 

0 

7 

%FFD9 

%FFE1 

%FFD3 

%FFE3 

%FFCB 
%FFC9 


%FFD2 
%F?D0 


BUS    LOCK    :=%FFF9 


BUS_UNLOCK 

VINTR 

VIBIT 

ESCAPE 

BS 

LINDEL 

CR 

LF 

TXOFCE 


=%FFF8 

£ (2  )000 1000000000000 
12 
%1B 
%09 
%7F 
%0D 
%0A 
%13 
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TXONCH 


=      %11 


INSIZ 

;  = 

128 

!  INTBUF  SIZE  ! 

OUTS  I Z 

= 

128 

!  OUTBUF  SIZE  ! 

RBSIZ 

>  = 

256 

!  RING  BUFFER  S 

IT  POSITIONS 

IN  MONITOR 

FLAG-  WORD  ! 

TRPMDE 

= 

0 

ISTOP 

:  = 

1 

OSTOP     : 

= 

2 

SNDMDE 

;  = 

3 

LDMDE     : 

= 

4 

ESC 

= 

5 

TXMSK     : 

_  < 

06 

SIZE    ! 


COMDS 


:=      12 


EXTERNAL 

PRNT3F 

PROCEDURE 

EXTFRN.aL 

GETNXT 

PROCEDURE 

EXTERNAL 

EROR 

LABEL 

EXTERNAL 

SNDCHR 

PROCEDURE 

EXTERNAL 

GETADP 

PROCEDURE 

EXTERNAL 

GMCZAD 

PROCEDURE 

EXTERNAL 

SNDMCZ 

PROCEDURE 

EXTERNA 

CONVERT 

PROCEDURE 

EXTERNAL 

PEUFNC 

LABEL 

EXTERNAL 

SNDMSG 

PROCEDURE 

EXTERNAL 

CONVW 

PROCEDURE 

INTERNAL 

$SECTICN  DATA  DEC 

$ABS  0 

0000 

INTBUF 

ARRAY 

[128 

BYTE] 

BYTE] 

0080 

OUTSUF 

ARRAY 

128 

0100 

RNGBUF 

ARRAY 

"256 

BYTE! 

0200 

MCZBUF 

ARRAY 

"256 

BYTE] 

0300 

BUFADR 

WORD 

0302 

BUFSIZ 

WORD 

0304 

INTPTR 

WORD 

0306 

OUTPTR 

WORD 

0308 

UNIMP 

WORD 

030A 

BRKCNT 

WORD 

030C 

NXTPTR 

WORD 

030F 

GETOUT 

WORD 

0310 

MCZPUT 

WORD 

0312 

MCZGET 

WORD 

0314 

BPKSTR 

WORD 
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0316 

BUI ADR 

WORD 

0315 

TMPSP 

a/ORD 

031A 

TMPFCW 

WORD 

031C 


MFLAGS         WORD 
!    USER    REGISTER    STORAGE 


031E 

R0 

WO  RD 

0320 

Rl 

WORD 

0322 

R2 

WORD 

0324 

R3 

WORD 

0326 

R4 

WORD 

0328 

R5 

WORD 

?32A 

R6 

WORD 

032C 

R7 

WORD 

032E 

R9 

WORD 

0330 

R9 

WORD 

0332 

R10 

WORD 

0334 

Rll 

WORD 

0336 

R12 

WORD 

0338 

R13 

WORD 

033A 

R14 

WCRD 

033C 

R15 

WORD 

033S 

RPC 

WORD 

0340 

RFC_ 

WORD 

0342 

RETTY 

WORD 

0344 

ADR    STR 

WORD 

^SECTION    LOAD_PROC 
$REL    0 


0000 


GLOBAL 

FNAME  PROCEDURE 

I   ,,»  3|S3J>  J,C  ijc  «,«  ;,*  2|«  «y>  r,~  2r>  !£C3jC  3JC  *»-  ^'  *y*  <^-.  5J»  *^»  *ji  5jC  -^  3JZ  3J>  5p  Jj£  5Ji  *^C  ^  ?,-»  J,X  J|i  Jp  ?,*  i^»  J,*  #y  -,i  ^,C 


0000 

4DE8 

CLR 

0002 

0312 

0004 

4DE8 

CLR 

0006 

0310 

000S 

34CA 

LDA 

*  FNAME:    RESETS    TWO    PTRS    TO    MCZ3UF        * 

*  AND    CHECKS    FOR   FILENAME.  * 

*(»  '.» 

5|t  *JC  <>£  *f<.  SfC  iy»  ^*  3^£  5^»  «^  *p  *i^  *c  ***  \*  »i*  1*  ^?  *■*■•  *B*  *i^  ***  **?  *§*  *is  *i*  *v*  hp  *•*  ■*<*  •fi*  '(**  3fi"  *¥*  •!■  *»*  *fifi  i^  ^*  9QC  f 

ENTRY 

MCZGET(R14) 


MCZPUT(R14) 
R10fR12(#GETNXT 


!    RESET    BUFFER    ! 
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000A  0000* 

000C  1FA0  CALL      G>R10  !  SKIP  CMD  ARG  ! 

000-E  ?Apg  C?3       RL0t#'A' 

0010  41il 

0012  S711  JR        C.DUN 

0014  0A08  C?B       RL0,#'Z'-1 

0016  5B*B 

0018  EF0E  JR        NC.DUN        !  1ST  CHR  IN  (A..Z)  ! 

0014  76CA  LDA       R1Z , GETNXT( R12 ) 

001C  0000* 

001E  1FA0  CALL      (?R10  !  SKIP  TO  NEXT  ARG  ! 

0020  E607  JR        Z, NO  ADR      !  MC  MEXT  ARG  ! 

0022  76CA  LDA       R10, GETADR( R12 ) 

0024  0000* 

0026  1FA0  CALL      0R10  !  GET  USER  SPECIFIED  ! 

!  ADDRESS  ! 

0028  A13B  LD        R11.R3        !  SAVE  USER  ADR  i 

0£2A  6FE3  LD        ADR_STR ( R14 ) , R3 
002C  0344 

002E  9E08  RET 

NO_ADF.  : 

0030  210B  LD        R11,#%FFFS    !  SIGNAL  TO  USE  MCZ  ! 
0032  FFFE 

0034  9E08  RET 


!  ADDRESS  ! 


DUN: 
0036  8D98      CLR       R9 
0038  34CA      LDA       R10 ,R12 ( #EROR ) 
003A  0000* 

003C  1EA8     JP       0R10         !  ERROR,  RTN  TO  EXEC  ! 
003E       END  FNAME 
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003F 


GLOBAL 

CMDPAS    PROCEDURE 

I  *i*  •»**»*  *»**  *i*  ***  t*  i»  *i*  *i*  «t*  t**it  *i**»*  •¥*•**  *»*  ****  'i*  *i**»*  ■*<*  *»*  *i*  *i**V*  *r  *p  *i*  *i*  *»■  'i*  *r*  *8*  *i*  *»*  *i*  *p  *i* 


*  CMDPAS:    LOAD    CMD    PASSING    MECHANISM  * 

*  SENDS    'BJ  '    PLUS    CONS    CMD  * 

*  LINE    TO    MCZ    AND    CKS    RESPONSES    FOP.  * 

*  GOOD    Z80    PROGRAM    LOAD.  * 

*  REG    USE:       RETURN         NZ    IF    Z&0    LOADED  * 

*  Z       IE    NOT  * 


7f«  5JC  ^,-»  *j»  *«j-»  .*,■*  «!«  «-,»  ip,  i|C  *(»  3y(  »f*  Xp  »rt  i,i  if»  3^»  *^»  *(»  »^«»  «f»  *yC  *^»  5p  *|*  *,%  #,■»  i)*  ^»  *^?  *y**  *c  ***  *?  T  1*  *P  *P  ***    I 


003E  67E5 
0040  031C 
0042  E602 
0044  8D41 
0046    9E08 


ENTRY 
BIT 


JR 

SETELG 

RET 


MFLAGS(R14)f#ESC       !    CK   FOR   ESCAPE    ! 

Z.GCMD 
Z 


0048  C242 
304A  CA3B 
004C  6FE2 
004F    0080 


0050 
0052 
0054 
0056 
0058 
005A 
005C 
005E 
0060 


76E2 
0080 
A  921 
76E1 
0000 

2100 
0040 
BB11 
0020 


0062  76E1 
0064  0080 
0066  0101 
0068  0080 
006A  6FE1 
006C    0306 


GCMD: 
LDB 
LDB 

LD 


LDA 

INC 
LDA 

LD 

LDIR 

LDA 
ADD 
LD 


'B' 


RH2,#  B 
RL2  #  '  J 
0UT3UFU14)  ,R2 


!    LOAD    INIT    'B; '    ! 


!    FOR    BRIEF    MODE    ! 


R2,0UTBUF(R14) 


R2,#2 
R1,INTBUF(R14) 


P0,#%40 
OR2,PR1,R0 

Rl  ,CUTBUF(R14) 
Rl,#%80 
0UTPTR(R14) ,R1 


!    LD    CMD    IN    OUTBUF    ! 


006E 
0070 
0072 
0074 

0076 
0078 
007A 


DF36 
DFE7 
DFD4 
0A09 
4242 
EE02 
DFEC 


CALR 
CALR 

CALR 

CPB 

JR 
CALR 


OUTSTM 
SKIPLN 
MCZCOM 
RL1,#'B' 

NZ.LDSTAT 
SKIPLN 


!  OUTPUT  BUFFER  ! 
!  SKI?  MCZ  ECHO  ! 
!    WAIT    RESPONSE    ! 


!    SKIP    MCZ    ECHO    ! 
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007C    PFD9 


CALR 


MCZCOM 


!     *AIT    RESPONSE    ! 


!    VERIFY 

LOAD    STATUS    ! 

LDSTAT: 

007S 

0A09 

CPB 

RL1,#'9' 

0080 

3939 

0032 

F60E 

JR 

Z,RECACK 

0084 

0A09 

CPB 

RL1,#'0' 

0086 

3030 

0088 

E60B 

JR 

Z.RECACK 

008A 

0A09 

CPB 

RL1,#'7' 

008C 

3737 

008E 

E608 

JR 

Z,RECACK 

009? 

DFD9 

CALF 

0092 

34  C  A 

LDA 

0094 

0000* 

f096 

1F&0 

CALL 

0098 

0A08 

CPB 

009A 

0A0A 

009C 

9E06 

RET 

009E 

F8F8 

JR 

!    TEST    LEGAL    ! 

!    ACKNOWLEDGEMENTS    ! 

!    REC    GOOD    ACK    ! 


!    NO    ACKNOWLEDGEMENTS    RECEIVED    ! 
ERMSG: 

RECMSG  !    GET    MCZ    MSG    ! 

R10,R12(#SNDCHR) 


00A0  8D43 
00A2  9E08 
00  A4 


00  A4 


00A4  DFF3 
00A6  0A08 
00A8  0D0D 
00 » A    FEFC 


PR  10 

RL0,#LF 

Z 
ERMSG 


!    ACKNOWLEDGE    RECEIVED    ! 
RECACK: 

RESFLG         Z 

RET 
END    CMDPAS 


!    SEND    TO    CONS     ! 
!    DONE    ! 


!    RETURN    NZ    ! 


GLOEAL 

SKPB  LABEL 

SKIPLN      PROCEDURE 

I-1-  »V«4*  -'-  **-  -1-  -*~  sV  *'->•-  ~v  o.  ,4-  kV*JU  <•-  »'*  <JU  V'  V*  V'  *M  >'  -*-  »'*  -*'>'-  -'-  »v  V*  »V  *V  »•*  »•■*  V-  v-  o -*<-•■»  -J. 
*r  n*"r  *i»  n»  vt  ^  ^^  t  *^¥  Tn*  n^  t  v  t  v  vt1  v  *r  *>*  '«*n*  T  "T  v  V  'r  'i*  *r  n*  n*¥  ¥  v  ¥ 

*  SKIPLN:    SKIP    RECEIVED    LINE   FROM  * 

*  MCZ;    RETURN    FIRST    CHAR    OF        * 

*  NEXT    LINE.  * 

*  * 

*  REG   USE:       RETURN         RL1    =    1ST    CHR  * 

*  AND    NZ    IF    ESC  * 

*,C  *,- 

*5*  *?*S*  *f*  **"  *T*  'P  *f*  "9*  *J*  *P  *T*  1*  *1T**t*  *T*  *"(*  *»*  *T*  *1*  *¥*  A*  **l*  "l*  "F  »|"('  *|*  *i»  «^*  *»»  *"|»  *V»  Of"  3f*  T*  *|»  IP  *J*  *|*  " 

ENTRY 
CALR 
CPB 


JR 


RECMSG 
RL0,#CR 

NZ, SKIPLN 


!    SKIP    OVER    LINE    ! 
!    THRU    CR,LF    ! 
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00AC    2101 
00AF    3000 


00B0  61E0 
00P2  0312 
00B4  4BE0 
00S6  0310 
0056  EE03 
00BA  A310 
003C  EEF9 
00EE    9E06 


00C0  DFF3 
00C2  0A09 
00C4    2020 

00C6  9E0D 
00C8  DFF5 
00CA  ESF0 
00CC 

00CC 


00CC 
00CE 
00D0 
00D2 
00E4 
00D6 
00D8 
00DA 
00DC 
00DE 
00E0 


SKPB: 
LE 


3.1  f#%3000 


!    EELAY   FACTOR    ! 


!    MAIN    LO(P    FOR    RECEIVING    CHAR    ! 
LOOP1: 

LE  R0,MCZGET(R14) 

CP 

JR 
EEC 
JR 
RET 

RECHR: 
CALR 
CP3 

RET 
CALR 
JR 
END    SKIPLN 


R0  ,MCZPUT(R14) 

NZ .RECHR 

Rl  ,#1 
NZ.LOOP1 

Z 


!    TEST    FOR    REC    CHR    ! 

!    YES ! 

!    NO,    WAIT    AWHILE      ! 

!    FORCED    EOL    ! 


MCZCOM 
RL1,#' 

PL 
RECMSG 

SKP3 


!    CK    1ST=PRNT    CHR    ! 


MCZCOM    PROCEDURE 

f-,j  **?  V*  *•'*  <*'-  *'*  -V  «■'*  ''*  V'  -"*  »'-  ''*  ■*''  -•*  ***  aJU  «■'  ■  „i».  »•*  JU  Jl*  -O  -'*  *M* 
-,-*-,*■  ?r  ">*  *r*  n*  *r  "p  »c  *■-  *r  -i*  <v  *r 1*  *r  *i*  *r  *•■•  *•*  *.*  *r  *i*  *P  '•* 

*  MCZCOM:    LOOPS    WAITING-   FOR    RECEIVE 

*  CHAR    FROM   MCZ    BY    SEEING    IF 


* 


MCZ3UF    GETS    CHAR.    DOES 
ADVANCE   POINTER. 


* 
* 


61E0 

0312 
43E0 
0310 
E6F3 
34 C  A 
0000* 

1FA0 

2029 
9E08 


*      REG    USE:    RETURN      RL1    =    CHR  * 

-i»  *r 

«J„  ***>!*  •»*  »i^  *•»  »V  *V  •"*  *V  "i1*  %•****  «f»*J#  »'****  *•*  V'  V*  «'*»I««U  »l»  »'.  tbtb  •>**  •**  »*»  »•*  «JU  *JU  »**  *•*  V  »'#  O-  »«*  »'*  | 

«.,»  *^-  -i~  *,»  -,»  ^*  *^»  ^,-  *y-  «,«  .,*.  *!*  ?,»  -,-  i»  ^j»  *,*  «rf>  *,-  ^|*  vf  *!*  *f»  *|*  *^  *,*  »,^  *,»  »»«  »»»  rt»  *|»  *|*  *|»  *(•  *|*  ^|»  ^,»  *y»  >|*  I 

ENTRY 

R0,MCZGET(R14)  !    CHECK   MCZBUF    ! 


LD 

CP 

JR 
LDA 

CALL 
LD3 
RET 
END   MCZCOM 


R0,MCZPUT(R14) 


!    POINTERS     ! 


Z, MCZCOM  !    WAIT ! 

R10tR12(*GMCZAD) 


GR10 
HL1.GR2 


!    GET    CHAR    FROM    BUF    ! 
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00E0  RECMSG    PROCEDURE 

»fcl-  ^±  lie  •"*  •!*  *'«•  sfa  *f*  ate  *'*  *•*  ***  "sV  *'*  ***  *'*  *•<  *V  V-*  *•*  »'-  V-  ***»«•»  »v  »>-  •>•«  v  -  v*  *•*  »'*  ite  »•*  *»*  **t  *'-  »•*  ***  *•*  %•* 

'  *  * 

*  RECMSG:    LOOPS    WAITING    FOR    CEC    CHP         * 

FROM    MCZ.    GETS    CHAR    AND  * 

*  DO    MOT    ADVANCE    3U?   ?TR.  * 

*  REG    USE:      RETURNS         RL0    =    CHR  * 

-r  *«* 

*  n»  1*  *i"  3*8  *r*  n»  n*  V*  *i*  'I*  *i*  t>  ■*>*  *r*  'I*  *r  *  *»*  i*  *>■*  *•*  *£  *£  *"**  *»*  *»*  *v*  ***  *r  ^**  3v»  Vi*  *p  Vn  *r  *?  5**  * 

ENTRY 

00F0    61E0  LD  R0,MCZGET(R14) 

00E2    0312 

00E4    *BE0  CP  R0,MCZPUT(R14)  !    CK    FOR    REC    ! 

00E6    0310 

0eE8    E6FB  JR  Z,    RECMSG  !    WAIT ! 

00EA    34CA  IDA  R10 , R12 ( #GMCZAD ) 

00EC    0000* 

00EE    1FA0  C^LL  0R10  !    GET    1ST    CHAR    ! 

00F0    6F50  LD  MCZGET(E14),R0         !    RESTORE   PTR    ! 

00F2    0312 

00F4    2029  LDB  RL0.GR2  !    RTN    CHAR     ! 

00F6    9E08  RET 

00F8  END    RECMSG 

GLOBAL 

OUTSTM  LABEL 

00F8  OUTLNE  PROCEDURE 

111*  %V  »V  mif   %**  tJr   »'  *  •.'.-  V  *  *•>  »»*  .«*  »'.»  «'*  «V  «■'-  ***  *  V  x*  *  » '  *  »'  *  **'  *V  ***  ***  V'  V*  >**  ***  *'*  *'*  ***  **■■  ***  *V  •»'*  *' '  ***  V  »*<• 
»(»  ^»  *^  ^|fc  *^»  *|*  »j»  #g>  #|*  *,  »  #^  -i»  *i*  *c  ^P  ^*  *P  ***  *»"  1*  *i*  *!*•  *P  1*  1*  *l*  *t*  *P  *1*  *1*  IP  *»*  *»*  *l*  "V*  »g*  ^*  *|»  *f»  *|» 

*  OUTLNE:    OUTPUTS    A    LINE   OF    CHAR    FROM    * 

*  OUTBUF   TO    MCZ    WITH    CR    AT 

*  END.  * 

*  a 

*  OUTSTM:    OUTPUTS    A    LINE    OF    CHAR    W/CR   * 

*  a 

j-  >•*  »*»  v*  •#*  ***  »'*  V*  *■**  V*  •**  •'*  ■!*  *■'■*  »**  *V  ***  ***  ***  ?fc  *,,*  ***  ***  *'*  ***  V*  *'*  *''  ***  ***  ^*  ***  ***  ***  ***  ***  •**  mff  ***  ■"*  f 
-. .  ?(* .,-  if*  *,»  rr  *.,»  ?,s  -»~  -,~  -,»  ',-  *,*  ',>  -r  n5  n*  *r  *«*  *»*  i%  '*-  i"i*  *v  ^rn*  *«■*  -«•»  n*  ^*  n»  *i*  ***  nr  t«  *»•  *r  «*i*  *i-  f 

R2,OUTPTR(R14) 

0R2,#CR  ISTORE    CR    IN    BUF    ! 

OUTPTR(R14) ,#1  !    INC    PTR    ! 


!    NO    C3    ENTRY   POINT    ! 

OUTSTM: 
0104   76F1  LD«  Rl,OUTBUF(R14) 

0106   0080 

!    MAIN    LOOP    ! 
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ENTRY 

00F8 

61E2 

LD 

00  FA 

0306 

00FC 

0C25 

LDB 

00FE 

0D0D 

0100 

69E0 

INC 

0102 

0306 

OVRAG-N : 

010S    2013  LDB  RL0,C»K1 

010A    A910  IMC  31 

010C    34C\  LDA  ?.10,R12(#SNDMCZ) 

010E    0000* 

0110    1FA0  CALL  @R10  !    SND    CHR    TO    MG Z    ! 

0112    E603  JR  Z, FINIS 

0114    4BE1  CP  Rl  ,0UTPTR(R14) 

0116    0306 

0118    E7F7  J?  C.OVRAGN  !    CK    IF    3'JF    EMPTY    ! 

!  FINISHED,  RESET  0UTPTR(R14)  AND  BLANK  OUTEUF  ! 
FINIS: 

011A  76E2  LDA       R2 ,OUTBUF(R14 )  !  RESET  POINTER  ! 

011C  0080 

011E  6FS2  LD       0UTPTR(R14) ,R2 

0120  0306 

0122  2100  LD       R0,#OUTSIZ/2 

0124  0040 

0126  AB00  DEC       R0,*1  !  SET  COUNT  ! 

0128  4DE5  LD       OUTBUF( B14} ,# '   '    !  LOAD  COUNT  ! 

012A  0080 

012C  2020 

012E  76E2  LDA       R2 ,0UTBUF(R14) 

0130  0080 

0132  4121  LD       R1,R2 

0134  A911  INC       Rl,#2 

0136  BB21  LDIR      GR1,(3R2,R0     !  CLR  BUFFER  ! 

0138  0010 

013 A  9E08  RET 

013C        END  OUTLNE 
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ABORTM         LABEL 
GODP.sK        LABEL 
013C  BADPAK         PROCEDURE 

Ihr>  *I,«J*  .-„(..  o-  «!<•  -J-  »V*M  -'■*  **M»fc  ******  <•''  "**  *'-*»****  <.».*•*  -'-  *£•%!!*  »•*.'.,  «,V  -**  **'  -'*  »•***"  *.•»•,«*  -''  -V  •J**''  ->' 
n*  i*  *t*  *-  "»-  *i-  -v*  *i*  i*  *i-  n*  'i*  *t*  *r  *t-  *■*  t*  *■*  *t*  **■  *i«  i*  *i*  *>*  "i*  *•*  *¥*  *f  *«*  *»*  *r  *i*  *r  *i*  ***  *«*  *r  *t*  *i*  *i* 

•**  *i- 

*  BADPAK:    SENDS    RESEND    SIGNAL    ('7')         * 

*  TO    ^CZ    FOR    3AE    CKSUM    OR    REC    * 

*  NON-ASCII    CHF.  * 

*  # 

*  A30RTM:    SENDS    ABORT    SIGNAL    ('9')  * 

*  '.VHEN    JSER    SELECTED.  * 

*  GOEPAK:    SENDS    ACK    SIGNAL    (  '0 ' )    FOR      * 

*  RECEIPT    OF   GOOD    PICKET.  * 

k1*   o-  .J-  JU  *JU  *»-  JU  *'-  -J*  •.'-  -'-  *'•  »'*  -'-  *•*  %'«  J-  «■»*  »**  -'»  *•*  *.'«  '•-  dU  »'-  »UO-  a*  U*  .'*  J^  V  *'*  *'"  •'■•  -'*  -•*  «'*  -'-  ■»■'*  • 

*»»  *v  *»*  •'r  *r  *v*  *t*  *i*  **-  *t*  *i*  *i*  *p  n*  n*  *t**  m*  *f  i-  *»*  *t-  *r*  *i*  *i-  *■»*  n*  n*  *r  *»*  n*  f*  *lr  *t*  nr  *t*  *r  f  "i*  *»*  *»*  I 

ENTRY 
013C    C837  LDB  RL0,#'7'  !    LD    RESEND    SIG    ! 

013E    E803  JR  CUTALL 

ABORTM: 
0140    C839  LDE  RL0,#'9'  !    LD    ABORT    SIG    ! 

2142    E301  JR  CUTALL 

GODPAK: 
0141:    CS30  LDB  RL0,#'0'  !    LD   REC    OK    SIG    ! 

OUTALL: 
0146    6FE8  LDB  OUTBUF ( R14 ) , RL0 

0146    0080 

014A    76ED  LDA  R13 ,OUTBUF( R14 ) 

014C    0080 

01  4S    A9D0  INC  R13,#l 

0150    6FED  LD  OUTPTR (R14 ) ,R13 

?152    0306 

0154    D02F  CM?.  OUTLNE  !    S7ND    MCZ    SYSTEM    I 

0156    D05A  CALR  SKIPLN  !    SKI?    ECHO    ! 

0158   9E08  RET 

015A  END   BADPAK 
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GLOB  *L 
015A  GETACK         PROCEDU 


**'*  ■»'*%•*  »'-  «JU  *'*  *l*  **-  *»*  -*-  .'*  .•**■«  *#«*U>  .♦#  «l*  *»..  *».  db  »i,  ..'.*  »•»  »•-  *,'-  .'^»i-  «.<*  .'..  »»*  *•*  *,■*  ktai  Jt*  »'<  O*  «J*  »•*  »•-  -'.» 
*t-  *t"  "n  *i-  t*  i»-v  t  *i*  *i  *-•  "(*•«»  -ot  *^*F  *v  '%•  "*■•  -i-i*  *i-  'i"  *i*  -i"*r*  *i-  *i*  *p  *p  *■?  *t*  1-  •'»'•  -»■**»■»  *i"  'i**  *c 

*»-  si* 

*  GETACK:    RECEIVE    AMD    INTERPRET   ACK        * 

*  FROM    MCZ.    GOOD   ACK    =    '0'  * 

*  BAD      ACK    =    '7'  * 

*  ABORT  =    '9'  * 

*i*  *»» 

*  REG    USE:       RETURN      ZtNC    IE    GOOD    ACK      * 

*  NZfNC    IE    BAD   ACK      * 


* 

NZ 

,C    IE    ABORT             * 

j»-  ; 

i*  -,-  *■,-•  **•  *i*  *»»  »im  n*  *i*  • 

'*  «p»  -■-  -'»">*•  %>r  k'-  *'.  fc>>  «*« 

JbUnU*  • 

•#  v»  »•»  ***  ***  **•  ***  ****  V*  V*  *'*  *V  ***  *'*  ***  *V  *J*  fl 

ENTRY 

015A 

D043 

CALR 

MCZCOM 

!    GET    CHR    ! 

015C 

0A09 

CP3 

RL1,#'0' 

!    CK    FOR    ACK    ! 

015E 

3030 

0160 

EE04 

JP 

NZ,N*\CK 

!    NO ! 

0162 

D060 

CALR 

SKIPLN 

!    YES,    REC    ACK    ! 

0164 

SD41 

SETFLG 

7 

0166 

8D83 

RESELG 

c 

0168 

9E08 

RET 

!    CK    FOR    '7'    »ND    '9'    NON-ACKNOWLEDGEMENTS    ! 
N  A  C  K  * 

!    CK    FOR   RESEND    ! 

!     NO.. . .     ! 


016A 

0A09 

CPB 

RL1,#'7' 

*16C 

3737 

016E 

EE04 

JR 

NZ.ABRT 

0170 

D067 

CALR 

SKIPLN 

?172 

8D43 

FFSFLG 

Z 

9174 

8D83 

RESFLG 

C 

3176 

OTT0P 

RET 

!    CHECK    FOR 

ABORT    ! 

ABRT  : 

0179 

0A09 

CPB 

RL1,#'9' 

£17* 

3939 

017C 

F602 

JR 

Z, ENDIT 

017E 

D050 

CALR 

RECMSG 

0180 

F9FC 

JR 

ENDIT: 

GETACK 

0182 

D070 

CALR 

SKIPLN 

0134 

9D43 

RESFLG 

Z 

0186 

8D81 

SETFLG 

C 

0188 

9E08 

RET 

F18* 

END   GETACK 

!    YES,    ABORT. . .    ! 
!    GET    ANOTHER    CHR    ! 
!    TRY    AGAIN. ...     ! 
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■3  ISA 


LINRCT    PROCEDURE 

I   -'*  *'f  «-t-  -1-  "'*  V'  *>■■*  **'  -J-  V'  «■'*  **'  *'-  -*-  *■**  »•-  »y  «■'"  v*  V'  »'-  *'*  1-*  *to  **-  *''  v-  -*-  *y  -■'  «'^  «.■»  o-  *•«  ><-  *'-  v  »*-  »** 
I    *#*  *!*  *,*  *■,»  »,»  3,-  Wf  -,-  #,»  J,»  -,-  *,*  *,-  *|»  #|*  #,«.  *fi  -,,  #,*  3(*  *,•»  »,»  J^  »,»  *,»  *,*  7,«  7^  *p  3,*  »,*  *,»  *,%  ..,»  3,^  »,»  3,*  pp  »,.  ?,» 

*  LINRCT:  RECEIVES  LINE  OE  CHAR  ^ROM  * 
MCZ  AETER  RECEIPT  OF  '/',  * 
AND  STORES  IN  INTBUF,  ADDING* 
CR    AT    END    AND    FILTERING    OUT    * 

CONTROL    CHARACTERS.    (<23E)      * 

*  (TRUNCATES    AFTER    83    CHAR)         * 

*  * 

ENTRY 

!    WAIT    FOR    ASCII    /    ! 


'"IS5 

D056 

CA.LP 

RECMSG 

fll£C 

0A08 

CPB 

RL0,# V 

018E 

2F2F 

0193 

FE^C 

JR 

NZ, LINRCT            !    WAIT    ! 

!    BEGIM 

STORING    CHARACTERS    ! 

0192 

76F4 

LDA 

R4,INTEUF(R14) 

0194 

<7 17*70 

0196 

CB53 

LDB 

RL3,#80                 !SET    LINE    LENGT 

!    ST  OR7 

CHAR    IN    INTBUF    ! 

LO^STE: 

019P 

D05D 

CALR 

RECMSG                      !    GET    CHAR    ! 

319A 

2E48 

LDB 

3R4.RL0                   !    STORE    ! 

019C 

(*$  (?g 

CPB 

EL0,*CR                   !    CK    FOR    END    ! 

019E 

<*D0D 

31A0 

EE02 

JR 

MZ.SKPSOM              !    GOT    CHAR..     ! 

01A2 

D07C 

C  A  L  ? 

SKPB 

01A4 

9E08 

RET 

31/16 

*A08 

CPB 

01 A  8 

2023 

31  ft  * 

F7F6 

JR 

01  AC 

A  943 

INC 

31AE 

F33C 

DBJNZ 

!C0NTR0L    CHAR    FILTERED    AND   DEC    LINE    COUNTER    ! 
SKPSOM: 

RL0,#'    ' 


C.LCPSTR 

R4,#l  !    GOOD    CHAR    ! 

RL3,L0PSTR         !    DEC    COUNT    ! 


ITRUNC'TE,    TOO    MANY    CHAR    ! 
LOPOVR: 

RECMSG 

!    LOOK    FOE    CR    ! 


31B0 

D069 

CALR 

RECMSG 

01B2 

0A0S 

CPB 

DL0,#CR                ! 

31B4 

0D0D 

01B6 

EEFC 

JR 

NZ  , LOPOVR 

01B8 

^6ED 

LD.a 

R13,INTBUF(R14) 

01BA 

0303 

01BC 

010D 

ADD 

R13,#80 

01BF 

^050 

31C3 

2FD8 

LDB 

e.R13,HL0 
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01 C2    9709  RET 

^1C4  END    LINRCT 

01C4  UNPACK         PROCEDURE 

?%U  »•*  V*  »»-  JU  *'-  «JU  »»>  -i-  nIU  »**  »i,  U«  JU  »**  »»>  »**  »*«  -l-  »«*  *JU  -JL.  ~»-  *|l*  JU  «i»  O*  *V  %«*  *.<*  %■*  »»*  «f«  .J*  <JU  »<-  „■.»  On  -J*   J> 
'I*  *i»»i»   *i-  T  "i*^*  *i»  *i-  'i"  *»-  '!»***   1"  "t*  "i*  *!"•  •(*  *("*  "I*  •"V"»|*  *»**  *i*  'i"  *(*  *      *i*  *t*  "i*  T*  *1*  *t»*V  'I*  *t*  *|*  *|-  *|*  I* 

*  UNPACK:    UNPACKS    RECEIVED    PACKETS  * 

*  FROM    MCZ    IN    INT3UE   AND  * 

*  LOADS    IN    SPECIFIED   MEMORY  * 

*  AREA.    ASCII    CHAR    ARE    CON-  * 

*  VERTED   TO    HEX    VALUES.  * 

Ua  **> 

*  REG    USE:    INPUT      RH3    =    #3YTE    DATA  * 

*J*   U*  .J*  *.».  J»  *><*WU  -.'-  *.(*  ~>-  *V  *.'*«**  *''  -J*  »'*  •>**  -U*><«  *-'-  »'»  «**  %'>  aV  ^'-  JU  »>»  »•-  *V  *'*»**  »*.  <••»•.'(•  ~'r  JL  «>«  «•*•■**  -'-  f 

*l»  *l*  »t»  ',*  *,»  *i*  J,1*  ^p  *|»  »,»  »t*  »t-«  *!»  *•-■»  »|*  »  (  -  *|-»  *,*  •!«  ^*  *]»  ^t»  f   *-|S  ^j*  »,»  *■,»  *,>  J|*  *|*  *f»  -,  -  *(»  *|%  »|*  *,*  *(*  *,»  »,"*  *^»  f 

FNTRY 
01C4    A03C  LDP  RL4,RH3  !    SAVE    COUNT    ! 

01C6    PEPE  CALR  CCNVAD  I    CONV    START    ADR    ! 

!  CHETK  FOF.    USE?    ENTERED    ADDR    FOP   LOAD    ! 
01C8    0P0P             C?  R11,#%FFFS 

PICA    EEEE 

01CC    E601  J15  Z,USE_MCZADR 

01CE    A131  LD  R1.R11  !    USER    SPECIFIED    ! 

USE    MCZADR: 
01D0    76E2  L~DA  R2, I NTBUF(R14 ) 

01D2    0000 
?1D4    *927  INC  R2t#3 

CANDS: 

01P6    PFE8  CALR  TRNHEX  !    CONVERT    2-ASCII    CHR    ! 

01D8    2E19  LDP,  GP.l.EL?  !    STORE    IN    MEM    ! 

31DA    A910  INC  Rl,#l 

01DC    FC04  DPJNZ  RL4, CANDS       !    CONV    AND   STORE    ALL    ! 

!    UPDATE   USER   SPECIFIED    ADDRESS    ! 
01DE    0P.0P  C?  R11,#%FFEE 

01 E2    ^601  JR  Z,NO    UPDATE         !    USE    MCZ    ADP    ! 

01E4    A11S  LD  R11.R1  !    UPDATE   USSR    ADR    ! 

NO_UPD4TE: 
01E6    9E08  RET 

01E8  END   UNPACK 
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01E6  TRNHEX    PROCEDURE 

»v'-  -**  *A«  JU  *,'*  -•*  v'.  ~J*   .J-  O-  -JU  »•-  o»  <*•  uU  -'*  »'-  V-*  t*-  -**  •>'"  »'*  ■»•*  *J-  *'*  V*  ***  *'*  «■•*  *■'*  -'"  -''  »•■»  »'-*  «•'-  *'*  -'-  JU  Jb  •>>' 
*r  *i*  *i-  *r  *■»  *r  *v  nr  nr  *r  *t*  *«*  i-  *.-  *r  i*  *r»  Ji-  *i»  nP  of  *»*  *»*  n*  tp  o~  -»•  *n  n*  i-  *»*  *r  n"  «v»  *r»  *r  *»»  *(»  *t-  •*■ 

j*-  *»* 

*  TRNHEX:    CONVERTS    TWO    ASCII    CFAF    FRM    * 

*  INT3UF   TO    TWO    4 -BIT    HEX    #         * 

*  AND    ADD    TO    CKSUM.  * 

*  REG    USE:    INPUT      R2   =    PTR    TC    1ST    CHR    * 

*  RL3=    CKSUM    ACCUM  * 

*  RETURN    R2   =    UPDATE    PTR  * 

*  RL3=    UPTATED    ACCUM      * 

*  PL0=   HEX    7ALUE  * 

*  AND    C    IF    NON-ASCII       * 

*  NC    IF    ALL   GOOD         * 

V  ■¥  n*  W 55C9QC  SJC  3QC9QC  3QC  «t* «,-»  3jt  ;,J  ;(t  3£  J,^  V  ^  V  *r  -v*  nr  V  h*  *i»  *(»  5JC  *i%  S§C  9QC  3j»  J|J  9QC  Si*  *,»  3j£  *c  3p  I 

!    CONVERT    1ST    CHR    ! 

!    AID   TO    CKSUM    ! 

!    MOVE    TO    H    NIBBLE    ! 

!    CONVERT    2ND    CHR    ! 
!    COMBINE    NIBBLES    ! 


EN 

TRY 

?1E8 

PFF6 

C«L^ 

AT OH EX 

01EA 

9F07 

RET 

C 

01EC 

9083 

ADDB 

RL3,RL0 

FIFE 

B309 

SLA 

R0,#12 

FIFO 

000C 

01F2 

DFFB 

CALR 

ATOEEX 

01F4 

9F07 

RET 

C 

01F6 

808B 

ADDB 

RL3.RL0 

01F8 

9408 

ORB 

RL0.RH0 

01  FA 

8D83 

RESFLG 

C 

01FC 

9E08 

RET 

01FE 

END   TRNHEX 

<*1FF  ATOHFX    PROCEDURE 

»*•*""  *A*  *fo   •"'■•  *^*  *-'"  V^  ***  V*  ■*'*  ***  **■*  V*  V*  *"-  *'*  ***  **■*  *"*  *Jl'  "■'■*  *'■*  •**  *■'•*  sl*  *  '*  V*  •**  ■"'■»  *■'•'  *lV  *•*"  -a*  *r*^  %*"  •>'*  ***  -■'■*  ■*■'*  °-' 
» ,■*  «v  'i*  T  n*  ■""i""  *i^  T  '1"  "■ "  'if*  *"*"■  *f*  "i"*  "I*  •  i"*  "i^  1*  'f*  1*  *f*  *tv  •"I*  "•'*  *t*  "1  *  'i*  *i"*  A*  *P  n>  ■*  1*  T  *r*  ^  n*  1^  f  Is  1* 

*  ATOHEX:    CONVERTS    ONE    ASCII    CHAR    TO      * 

*  4-BIT    HEX    NIBELE.  * 

*  * 

*  REG    USE:    INPUT      R2   =    PTR    TO    CHR  * 

*  RETURN    R2   =    PTR    +1  * 

*  RL0=   HEX    NI3BLE  * 

«A«  -. V  «L*  *JU  *JU  »'*  J*  ■*-  »<*  v«  «w  »>*  - '-  »■-  •-**  »■-  *•»  «i«  «x-  w»  -ij  aj«  *A«  t«*  »<*  V*  *o*  %•«  »y  •'*  */.*  %l«  Uy  «Jt#  «v  •••'  *■'-•  -J*  ^V  »-' «  I 
* ,-.  *^  «y«  J,»  *^»  *^5  «f«  «^«  +f*  ?,»  *y"  *T*  *t*  1*  *\*  *f  *T*  ***  A*  *|*  *t*  *l*  1*  n*  1*  *^  A*  *l*  'r  *P  *T*  •§*  "t*  1*  *f*  *t*  T*  *l*  *P  *l*  I 

PL0,3R2 

R2,#l  !    INC    PTR    ! 

R10fR12(#CONVERT) 

0R10 


ENTRY 

01FF 

2028 

LDB 

0200 

A  920 

INC 

0202 

34  C  A 

LDA 

0204 

0000* 

0206 

1FA.0 

CALL 

020S 

9E08 

RET 

720  a 

END    ATOHEX 
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320  A 


CONVAD    PROCEDURE 

*  $ 

*  COMVAD:    CONVERTS    STARTING    ADDRESS         * 

*  OF    PACKET    DATA    TO    HEX    #. 

*  PEG   USE:    RETURN        ?.l    =    ADDRESS  (HEX)    * 


#####**il#####%i##X#####*##Xtt##########*##  j 


ENTRY 

020A 

76E2 

LDA 

R2,INT 

02<*C 

0000 

020E 

D014 

CALK 

TRNHEX 

0210 

A091 

LDB 

RH1.RL0 

7212 

D016 

CALH 

TRNHEX 

0214- 

»089 

LDP 

RL1,RL0 

0216 

9E03 

RET 

0213 

END    CONVAD 

!    STORE    1ST    BYTE    ! 
!    STORE    2ND    BYTE    J 


0216 


•  «■'*  •.'*  —'*  •.•*■ 


** 


•  *S*  ■»'*  ***  *l*  O*  «V  5fe  "fe  V*  *** 


^c  »^  ^  #  ^:  ;|;  ^ :',:  :£  ;|: 


CHKPAK         PROCEDURE 

*    uU  *•*  »•*   »'  -  »l*  •>*<■  J,  aJ*  »">  «J*  o>  .  1^  ktg    «'-  *J#  dp  vU  • 

*  CHKPAK:    CK   RECEIVED   MCZ    PAC    CKSUM 

*  AGAINST   ACCUMULATED   HEX 

*  VALUE    CKSUM    AFTER    ASCII-TO- 

*  HEX    CONVERSION. 


REG    USE:       RETURN      RH3    =    BYTE    COUNT 

AND    C    IE    BAD    OR 


* 

NON- 

ASCII.                     * 

« >..  -**  +i+  -u-  «v  ***  »**  sfif  *V  s  ■ 

^jt  *|*  ^ji  *^»  »|%  *r*   ^y»  *p  *|fc  *p 

•Jt*  -yU  yu  V-*  ***  ***  •-"  v«-»  *^«  -."*  % 

-r  -,-  jt-  ^,-t-  *r»  i*  nr»  *P  *r»  *i 

"  *r  *t*  n*  * 

k t-  o j.  -,'  -  -J*   »»■»  vV  »'..  o*  fci>  »».»  »JL-  .J.  *.».»  »<»  <JU  1 

"i"  n*  n*  *p  *v  *i*  n*  1*  1*  *n  ^  *!"•  "V*  *v"  *r*  ' 

ENTRY 

0219 

76E2 

LD« 

R2,INTBUF(R14 

/ 

021A 

0000 

321C 

C303 

LDB 

RH3,#3 

021E 

DFF9 

C^LR 

CHKSUM 

!    CK    1ST    CKSUM    ! 

0220 

9E07 

RET 

C 

!    PAD    CK    f 

0222 

eC34 

TESTS 

RH3 

^224 

9E06 

RET 

Z 

!    NO   DATA     ! 

0226 

93F3 

PUSH 

G>R15,R3 

!    SAVE    BYTE    COUNT    ! 

022° 

DEEE 

CALR 

CHKSUM 

!    CK    2ND    CKSUM    ! 

022.9 

97E3 

POP 

R3  ,(??.!  5 

022C 

9E08 

RET 

322E 

END    CHKPAK 
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022F  CEKSUM         PROCEDURE 

»-•*  ***  V*  »*■*  •.'*  -'■»  »'»  »**  «-■»  -*-  «■'»  ••''  *'*  •.''»•>  .'*  »t*  .'.  »V  »'»  ■*''•  »'*  ■"'*■  *■'*  *■■'•  »'■*  -'-  »■-  -<*  -'.-  «■■*  »'-  ->'*  "■'-•  ■s1*  »'*  -.'-  >.''  »'-  v'. 
•  r  nPn*  'i'  i5*!*  *r  *«*  *i*  *•<-  *i*  -.*"i*  -.-V  *v  *v*-r  *(*  i*  i-*i»*r  **»  'ic  '.»*»•  *v  n*  *t*  *•*  T  *.*  •vl*  *i-5r  *»-•■.»  'i* 

*  CHKSUM:    CONVERTS    ALL    *EC    ASCII    CFR      * 

*  IN    PAC    TO    HEX    ANT    ACCUM    NEW    * 

*  CKSUM.    COMPARE    CKSUMS    AND         * 

*  REPORT    DIFFERENCES.  * 

*  HFC-    USF:     IMPUT      R2   =    PTR    TO    PAC  * 

*  RETURN 


?H3= 

#    CHR    PAIRS 

RE3  = 

BYTE 

:    COUNT 

RL3= 

NEW 

CKSUM 

RH3= 

REC 

CKSUM 

AND 

C    IF 

BAD    OR 

NON- 

ASCII 

REC 

tU  .UJU  *v  *V  »'*«J*  db  »v  ***  V*  ***  ***  •**»»*  *  -  V*  •*'  •.•-«'*  *t-  -'-  %v  *.""  »'-  »'-•*-  ***  J*  «J*  U»  JU  •!**<-  »'»  »'#  JU  j>  v  «*»    I 

**"  *»**i*  *r  *i*  *t*  *i»  *i»  *i*  *v  *%+  *r***»  »i**g*  *^fc*i»  i-v  '\*>  «v  'r-^5  *r  *i*  *i**P  *r»  ^  *»■*  *i*  *i»  i**>*  *i*  »r  »»»  *i   V  -r  T 


^ESET    CKSUM    ! 
CONVERT    PAIRS    ! 


ENTRY 

022? 

8CP8 

CLRB 

RL3 

! 

0230 

P025 

ABrCALR 

TRNHEX 

f 

0232 

9E07 

RET 

C 

0234: 

F303 

DBJNZ 

RH3.AB 

f 

0236 

A083 

LDB 

RH3.RL0 

0238 

93F3 

FUSE 

GP15.R3 

j 

0P3A 

D02A 

CALR 

TRNHEX 

i 

023C 

97F3 

POP 

R3.GR15 

023F 

95-177 

RET 

C 

0240 

8AB8 

CPP 

RL0.RL3 

! 

0242 

9E06 

RET 

Z 

I 

0244 

8D81 

S^TFLG 

C 

t 

0246 

9E08 

RET 

0248 

END    CHKSUM 

CONTINUE ! 

SAVE   BYTE    CNT    ! 
CONVERT    NEXT    TWO 


COMPARE    CK5UMS    ! 
GOOD    CK.  .  .     ! 
BAD    CKSUM    ! 
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GLOBAL 
Pi 248  LOADFL    PROCEDURE 

I  iH^x^z  ;'i ?*t  5';  ijc  ;'c ;*s ;!'  ;"?  ;'* ;u  ,'s 5';  yc  y;  *'s 5' s ^c  ;'t **c  ys  y c 31'  ;'t  ?'' ;'-"  **c  *"*  *'t  ?*<  S&SSfis  5**  -*>»»-  **-»»*  ji- 

*  LOADFL:    RECEIVES    PACKET   FROM    MC Z    IM    * 

*  FOLLOWING    FORMAT:  * 


* 


/  L 


<ADRXCNr.  <CKS1XDTA>.  .  .<DTAXCXS2>    * 


*  »DR    =   START    ASR    IN    Z8000    MEM  * 

*  CNT    =    #    DATA    WORDS  * 

*  CK'S1=   CKSUM   OF    <ADR>    +    <CNT>  * 

*  ^DTA>. . .<DTA>    =   30   DATA    WORDS  * 

*  CKS2  =    CKSUM   OF   DATA    HEX    VALUES  * 

*f*  Jim 

*V  '1" 

*  PROCEDURE    VERIFIES    CKSUMS    BEFORE  * 

*  STORING    DATA    IN    Z8000    MEM.    PACKETS       * 

*  ARE   ACK    FOR    WITH:     '0'    =   GOOD  * 

*  '7'    =    PESEND  * 

*  '3'    =    ABORT  * 

*  IF    REC    '//'    FROM    MCZ,    ECHOS    WHAT  * 

*  REC    MEXT    TO    CONSOLE    AND    *BORT.  * 

3*!  # 

*,t  .-,*.  #,*  *,*  *,»  -,-  n-  »,>.  »jt  *,»  ?,■•  *,-.  *,X  -,  3j5  -,-.  *,»  *,»  »j»  *,-  0f  *,%  *,-  -,*  *,»  ?,•-  *p.  *,»  -,*.  *p  »|»  *,-.  *,»  r,*  *,*  -,-.  »,S  *y«  *,»  *,■»   I 

ENTRY 

02^e    D125  CALR  FNAME  !    CK    FILENAME    ! 

024A    65E4  SET  MFLAGS ( R14) ,#LDMDE    ISIGNAL    LOAD    IN    ! 

02 4C    P3 1C 

!  PROG -ESS  ! 

024E    D10P  CALR  CMDPAS  !    SND    CMD   TO    MCZ    ! 

?250    9^06  RET  Z  !    Z80    PROG    NO    LOAD    ! 

RECLOP: 

0252    D065  CALR  LINRCT  !    GET    PACKET    ! 

0254   76F2  LD*.  R2  ,  INTBUF  (  R14  ) 

0256   0000 

0258    2028  LDE  RL3,G>R2 

025A    0A08  CPB  RL0,#V  !    CK    FOR    '//'    ! 

025C    2F2F 

025E    EE10  JR  NZ,CONTIN  !NO,    CONTINUE...! 

0260    76E1  LDA  Rl , OUTBUF( R14 )  !YSS,! 

0262   0080 

0264    2103  LD  R3,#%20 

^266    0020 

0268    BB21  LDIR  QR1,0R2,R3         !  ERROR    MSG    SETUP    ! 

026A    0310 

026C    76F1  LDA  Rl ,0UTBUF(R14 ) 

026E    0080 

0270    0101  ADD  Rl  ,#%20 

0272    0020 
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^274  6FE1 
0276  0306 

0273  34C4 
7127k    000** 
027C  1FA0 
027?  9FF8 


0280  67E5 
0232  031C 
0284  FE34 
0286  D033 
02eS  FF02 
028A  D0AS 
028C  E3F2 


?28E  8CS9 
2290  8138 


0292 
0294 
0296 
0298 
029A 
729C 
029? 
02A0 
02  A2 


02A4 
^2A6 
02  AS 
02AA 
02  PC 
02AE 
0230 
02B2 
02E4 
02B6 
0238 
02EA 
02BC 


SC34 
EE28 
D0AA 
?4F0 
0000 
76FD 
0080 
010D 
000C 


0B09 

*AA* 

E61D 

0303 

FFFE 

F608 

6FEP 

03^6 

61E5 

0344 

76CA 

0000s 

1FA0 


LD 


LDA 

CALL 
RET 

CONTIN: 
3IT 

J  3 
CALR 

J? 

CALR 

JR 


0UTPTR(R14),R1  !SET  CUTPTR  ! 

R10,R12(#PBUFNC) 

0R10 

MFLAGS(R14) ,#ESC    '  CK  FOR  ABORT  ! 


NZ,ABT 
CHKPAK 

MC.GDLD 
BADPAK 

RFCLOP 


!  YES .  ABORT. . . ! 

!  CK  CKSUMS  ! 

!  GOOD  LOAD  ! 
!  SEND  NON-ACK  ! 
!  TRY  AGAIN  ! 


!  CHECK  FOR  LAST  PACKET  AND  PRINT  <ENT  ADR>  ! 
GELD  : 

CLR3      RL3 

ADD  R8.R3         !    ACCUM    NUMBER    EYTES     ! 

!  CF  TRANSFER  ! 


TESTB  RH3 

JR  NZ  .STOR 

(MLR  GODPAK 

LDL  F?0,INTBUF(P14) 

LDA  R13,0UTBUF(R14) 

ADD  R13,#%0C 


!    CHECK    FOR    USER    SPECIFIED   ADDR     ! 


CK    COUNT=0    ! 
OK,    BEGIN    STR    ! 
SEND    GOOT    ACK    ! 


02BE    E801 


CP 

J? 

CP 

JR 
LD 

LD 

LDA 

CALL 

JP 
SAME    ADR: 


R9,#%AAAA 

Z.END_LOAD 
R11,#%FFFE 


!    NO    ECHO   TO    CONS    ! 
!    CK    FOR   LOAD    ADR    ! 


Z,SAME_ADR  !    USE    MCZ    ADR    ! 

CUTPTR(R14) ,R13      !    SET   OUTBUF   ADR    ! 

E5,ADE_ST3(R14)     !    GET  USER    ADR    ! 

R10,CONVW(R12) 

G>R10  !    CONVERT    TO    ASCII    AND    ! 

!    AND   STORE    IN    CUT^UF    ! 
FIN    3UF 
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^2C0 

1DD0 

LDL 
FIN  BUF: 

(apl3,RR0 

02C2 

3402 

LDA- 

D2  .ENTADR     ! LOAD  ENTRY  LABEL! 

02C4 

0i  (a  40 

02T6 

76E1 

LDA 

rl,0UTBUF(R14) 

02C8 

0080 

02  C  A 

2100 

LD 

R?,#6 

02CC 

0^06 

02CE 

BB21 

LDIP. 

ORlt(?R2,R0 

02D0 

^010 

02D2 

76ED 

LDA 

R13,0UTBUi'(R14) 

02D4 

0080 

02D6 

010D 

ADD 

R13,#%10 

02D6 

0010 

02PA 

6FFD 

LD 

OUTPTR'R14)  ,R13 

02DC 

0306 

02DT 

34CA 

LDA 

?10,R12(*?RNTBF) 

02E0 

0000* 

02F2 

1F»0 

C'LL 

QR10          !  PRINT  MESSAGE  ! 

END  LOAD 

02E4 

9E08 

RET 
STOR: 

02E6 

D06F 

CALR 

CONVAD 

0228 

D0D3 

CALR 

G-ODPAK        !  SEND  ACK  ! 

02E* 

D094 

CALJP 

UNPACK        !  UNPACK  aND  STORE  ! 

02EC 

E8B2 

JR 
ABT: 

RECLOP        !  CONTINUE ! 

02EE 

3402 

LD«? 

R2.EMSG- 

02E0 

000A 

02F2 

34CA 

LDA 

R10,R12(#SNDMSG) 

02F4 

0000* 

22F6 

1FA0 

CALL 

GP10           !  SEND  MESSAGE  ! 

02F9 

D0DD 

CALR 

ABORTM         !  SEND  AEORT  ! 

02  FA 

9^08 

RET 

02FC 

END  LOADFL 

EMSG-: 

02FC 

07 

BVAL 

7 

02FE 

2F41 

WVAL 

'/A' 

0300 

424F 

WVAL 

'BO' 

0302 

5254 

WVAL 

'RT' 

0304 

0D 

BVAL 
ENTADR: 

%0D 

03C6 

454E 

WVAL 

'EN' 

0308 

5452 

WVAL 

'TR' 

030A 

5920 

WVAL 

'Y  ' 

2  09 


?3ec 

504? 

tfVAL 

'PO' 

033? 

ig&v 

jtf  VAL 

'IN' 

0310 

^420 

WVAL 

'T  ' 

FND   SUPP03T3 
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APPENDIX  D  -  BOOTSTRAP  Program  Listing 


A. 


BOOTSTRAP  PROGRAM  LISTING 


1.   BOOTSTRAP  MODULE 


Zt003ASM   2.02 
LOG     OBJ  CODE 


STMT  SOURCE  STATEMENT 


1  BOOTSTRP  MODULE 

$LISTON   $TTY 

CONSTANT 

RXR 

.  = 

2 

TXR 

:  = 

0 

PAR 

:  = 

7 

PORTAD 

:  = 

%FFD9 

PORTED 

:  = 

%FFE1 

PORTAC 

:  = 

%FFDB 

PORTBC 

j  = 

%FFE3 

IDPORT 

» ■"" 

%FFCB 

ICPCRT 

§ 

%FFC9 

TCMD    := 

%FFD2 

TDTA 

%FFD0 

BUS  LOCK 

:=% 

FFF9 

BUS" UNLOC* 

:  : 

=%FFFS 

VINTR     : 

= 

%(2)0001000 

VIBIT 

;  = 

12 

ESCAPE 

= 

%1B 

MAX  CPU   • 

:  = 

8 

BS 

;  = 

%08 

LINDEL 

= 

%7F 

CR       : 

= 

%0D 

LF       : 

•  = 

%0A 

TXOFCH    : 

= 

%13 

TXONCH    : 

= 

%11 

INSIZ     : 

= 

128        ! 

OUTSIZ    : 

= 

128        ! 

RESIZ     : 

= 

256        ! 

!  3IT  POSITIC 

)NS 

IN  MONITOR 

TR^MDE    : 

= 

(? 

ISTOP     : 

= 

1 

OSTOP     : 

= 

2 

INT3UF  SIZE  ! 

OUTBUF  SIZE  ! 

RING  BUFFER  SIZE  ! 
FLAG  WORD  ! 
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0000 


SNPMDE         :  =      3 

LDM^E            :=      4 

ESC                 :=      5 

TXMSK           :=   %6 

TYPE 

MESSAGE        ARRAY  [3    WORD] 

SWITCH          ARRAY  [2    WORD] 

MEM    ARPAY                       ARRAY  [; 

52    WORD] 

CPU    ENTRY                  RECORD    [ 

SIGNAL 

WORD 

CPU    ID 

WORD 

MSG_ELK 

MESSAGE 

MEM    MAP 

MEM    ARRAY] 

ID    HERAT                         ARRAY  [f 

1AX    CPU   WORD] 

ENTRY_ARRAY                  ARRAY  [MAX_CPU   CPU_ENTRY] 

INTERNAL 

^SECTION    TABLE1    DATA 

$ABS    0 

CONFIG   TA3LE           RECORD    [ 

3W    PATTERN 

WORD 

CPU   NUM 

WORD 

NORM    RW    PAT 

!*ORD 

NORM    CPU    CNT 

WORD 

TABLE    LOCK 

WORD 

CPU   CNT 

WORD 

CPU_LIST 

ENTRY    ARRAY] 

^SECTION    TABLE2   DATA 

$ABS    0 

0000 


MIN 


0000 


LOG   TO    PHYS 

ID    ARRAY 

CONF_MEM_MAP 

MEM _ ARRAY] 

^SECTION 

PSA_DATA 

*ABS    0 

PSA 

RECORD    [ 

DATA    AREA 

WORD 

CODE    AREA 

WORD 

UNIMP    INST 

SWITCH 

PRIV    INST 

SWITCH 

sys  Call 

SWITCH 

SFG   TRAP 

SWITCH 

NMI    INT 

SWITCH 

NVI    INT 

SWITCH 

YEC    FCW 

WORD 

VEC    PC 

ARRAY    [200 

WORD] 
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IN 

TEPNAL 

$S 

ECTION    DATA   DEC 

$A 

PS    0 

P0  (70 

INTBUF 

APR  AY 

[128   BYTE1 

0060 

OUTPUF 

ARRAY 

[128    BYTEl' 

0100 

RNGBOT 

ARRAY 

[256    BYTEl 

0200 

MCZBUF 

ARRAY 

[256   BYTEl 

0300 

EUFADR 

WORD 

0302 

BUESIZ 

WORD 

*304 

INTPTR 

WORD 

0306 

OUTPTR 

WORD 

0308 

NXTPTR 

WORD 

030A 

GETOUT 

WOPD 

030C 

MCZPUT 

WORD 

030E 

MCZGET 

WORD 

^310 

MFL'GS 

WORD 

0312 

RETRY 

WORD 

0314 

ADP    STR 

WORD 

0316 

DV/N    ADP 

WORD 

0318 

START    ADR   WORD 

EXTERNAL 

LO*D   FIT, 

E      PROCEDURE 

$SECTION    BOOTSTRAP  PRO C 

$REL    0 

GLOBAL 

0000       BOOTSTRAP  PROCEDURE 

*  INIT_TEST:  INITIALIZES  MULTIPPO-     * 

*  CSSSOR  SYSTEM  WITH  A  COMMON   * 

*  MEMORY  MAP  ?.ND  SYSTEM  WIDE    * 

*  KNOWLEDGE  OF  EACH  UNIQUE  * 

*  CPU  ID?  LOADS  LOCAL  AND  * 

*  GLOBAL  PORTIONS  OE  O/SJ  * 

*  AND  TANSFERS  CONTROL  TO  * 

*  LOCAL  PORTION.  * 

sjc  it 

ENTRY 

0000  340C     LDAR  R12, BOOTSTRAP   !  SET  NEW  CODE_AREA  ! 
3002  EFFC 


!  INITIALIZE  SYSTEM  CALL  HANDLER  IN  PSA  ! 
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0004 

7DA5 

LDCTL 

0006 

3403 

LDP  a 

00(*8 

"2*4 

000A 

76  A 1 

LDA 

000C 

000c 

00r7E 

0D15 

LD 

0010 

4000 

0012 

331E 

LD 

0014 

0002 

0016 

3403 

LDAF 

0018 

0382 

0019 

76  »1 

LM 

001C 

0013 

001F 

3313 

LD 

0020 

000F 

P^.PSAPOFT 

R11,SYSTEM_CALL 

F.l  ,SYS_CALL(R10) 

(?R1,#%4000  !    LOAD   FCW    FOR    SC    ! 

R1(#2),R11      !  LOAD  PC  FOR  SC  ! 

R11,MEM_INT 

Rl  ,VEC_PC(R10) 

R1(#14),R11     !  LOAD  MEM  VIOLATION  ! 
!  INT  HANDLE!.  IN  PSA  ! 


!  INITIALIZE  NORMAL  STACK  POINTER  ! 


0022 

2103 

LD 

Ell.^450 

0024 

4500 

0026 

7D3F 

LDCTL 

NSP.R11 

!  MOVE  CODE 

TO  COMMON 

0028 

2101 

LD 

Rl  ,#%4100 

002A 

4100 

002C 

3404 

LD.AR 

R4,NORM_S 

302E 

001 E 

0030 

3402 

LDAR 

R2,GS3 

CG  32 

0072 

DO 

0034 

214D 

LD 

R13.PR4 

0036 

2F1D 

LD 

0R1.P.13 

?038 

8E42 

CP 

R2.R4 

003A 

E603 

JR 

Z,NXT  SC3 

"03C 

A911 

INC 

Rl,#2 

003E 

A941 

INC 

R4,#2 

0040 

E8F9 

OD 
NXT  SC3: 

0042 

2108 

LD 

R8,#%4100 

0044 

4100 

0046 

2103 

LD 

R3,#%4112 

0048 

411S 

004  A 

1F80 

CALL 

OR  8 

004C 

F82D 

JR 

TEST  LOCK 

!  NEW  CODE  LOCATION    ! 


!  END  OF  CODE  ! 


!  CK  FOR  END  ! 


!  CODE  TRANSFERRED  ! 


!  SET  RTN  ADR  ! 
!  SCRIBE  MEMORY  ! 
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«■>'*  *■'*  *»»  «*»  *l<*  •>*  <.<■»  -•>  *.'-  *'-  &r*  «,*<•  »'*  ^i-  «J*  %)+  «X»  *'*  »'-  0>  »•»  »V  »•*  s1'  *.'*  ***  %"i*  »*«-  «JU  WL>  »•*  «•>  o-  o*  oU  «.'*  »'*  <du  *J*  »*» 


* 

* 

004E 

00  50 

2104 

1000 

NO 

0052 
0054 
0056 

7r4A 
2101 
AA55 

0058 
005A 

005C 

2104 

F800 
opop 

005E    6741 

LD 

0060    0004 

0062    6F49 

LD 

0064    0006 

0066    0304 

SU3 

0068    0800 

006A    E8F9 

OD 

N02iM_SCBIBE:  SCFIBES  MEMORY  IN  THE  * 
NORMAL  MODE  USING  SYSTEM  CALL  * 
INSTRUCTION  FOR  BUS  LOCKS  AND  * 
MODE  CHANGES.  THIS  CODE  SECTION  * 
WILL  BE  EXECUTED  FROM  A  COMMON  * 
(NORMAL/SYSTEM)    AREA    OF    MEMOFY.    * 

*.'-  %K,   -I-  w'-  -i-  O*  »'-  ..I-  »»*  J-   t&t  *,',    %l* *U  «.'.  */*  *V  -'*  U#  kU  «>*  »•*  «.'■»  «JU  V-*  *■•«■  ■**'  V*  *>'*  **-*  -J*  J-»  ***  -J*  *'*  **i»  *•'*  *'*  *•*     1 

"c  *r*  *ii*  *v*  *i*  *»*  *f*  *r*  *»*  *i*  *i**t*  *k  ^*  *•*  i*  i*  *i*  *i*  *i*  •*!*  *i*  *»*  *i"*  *ir*  i*  i"*  ^^  •¥■  *t*  'i*  'c  *»*  •»■*  n*  *i*  *i*  *i""  *i*    I 

NORM    SCRIBE: 


!    CHG   TO    NORMAL    MODE    ! 
!    NORMAL    P/W   PATTERN    ! 

!    TOP    BLOCK    ADDR    ! 


!******      CLE.1?    MEMOFY    NORMAL    MODE      *******    ! 

DO 

N0RM_RW_PAT(R4) ,R1 

N0RM_CPU_CNT(P4) ,R9 
R4t#%0800 


LD 

R4,#%1000 

LDCTL 

LD 

FCW.R4 

El  ,#%AA55 

LD 

R4,*%F800 

CLR 

R9 

!    CLEAR    CPU    CNT    ! 


!    WAIT    FOR   OTHER    CPU'S    TO    COMPLETE   TASK    ! 
WAIT3: 


006C 

2103 

LD 

R3,#%1 

(706F 

1000 

0070 

7D3A 

LDCTL 

FCW.P3 

0072 

2103 

LD 

R3,#50 

0074 

0032 

DO 

0076 

1904 

MULT 

RR4.#1 

007Q 

00^1 

007a 

*B?0 

DEC 

R3 

007C 

E601 

JF 

Z,SCBE 

007E 

F8FB 

OD 

0080    2104 


»*#*****        SCRIBE      IN      NORMAL      MODE 

SCBE: 

LD  R4,#%Fe00 


^o.'csfcj^^slojs  f 
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r'<282 

F800 

DO 

0084 

6148 

^086 

0004. 

7  088 

°B18 

308A 

EE07 

'  CPU 

008C 

7701 

008E 

6148 

0090 

0006 

7092 

!  QQ  (? 

0094 

6F48 

0096 

0006 

0098 

7F02 

MO_ 

009A 

8BD4 

^09C 

E603 

009? 

0304 

00A0 

0800 

£0*2 

V°>?P 

OD 

TERMN: 

00A4 

7703 

SC 
GSB: 

00A6 

9E08 

RET 

00 «8  7678 
00AA  0008 


00 AC  DE8P 
00 AE  ED03 


00B0  1904 
0052  0001 

00B4  E6FB 


LD 

CP 
JF 


R8  ,NORM  RW  PATC.4 


R8.H1 

NZ.NO  RW 


!  CK  FOR  R/W  ! 
f  NO  R/W  ! 


!  CPU  IDENTIFIES  ACCESS  TO  THIS  "BLOCK  ! 

SC     *1  !  LOCK  MULTIBUS  ! 

R8.N0RM  CPU  CNT'R4)      !  GET  CPU  NUM  ! 


LD 

INC 

LD 

SC 


CP 
JR 
SUB 


R6,*l        !  INCREMENT  ! 
NORM  CPU  CNT(F4) ,P8 


#2 


UNLOCK  MULTIBUS 


R4,R13    !  CK  FOR  LAST  BLK  ! 
Z.TEFMN      !  FINISHED  ! 
R4,#%0800 


#3 


!  CHG  TO  SYSTEM  MODE  ! 


'  *  * 

*  TEST_LOCK:  ROUTINE  TO  GAIN  ACCESS    * 

*  TO  C0NFIG_TA3LE.  * 

*  REG  USE:  INPUT   R7  =  LOW  GLOBAL  MEM  * 

TEST  LOCK  • 

LDA       R8, TABLE  LOCK(R7)  !  LOCK  ADR  ! 


!  MAIN  LOCK  TESTING  LOOP  ! 
DO 

CALR  TEST_N_SET    !  ACCESS  CONFIG  TABLE  ! 

JR  PL,T3L  ACCESS  !  GOT  EXCLU.  ACCESS  ! 


!  DELAY  BETO^E  NEXT  ATTEMPT  ! 
MULT      RR4,#1 


OD 
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°P*6 

76^3 

LDA 

00B£ 

000  A 

00  BA 

213E 

LP 

00BC 

9B4E 

CP 

00BE 

F604 

JR 

00C0 

4D75 

LD 

?0C2 

^0"8 

00C4 

0000 

00C6 

E6F0 

JR 
OWN    ID: 

00C8 

0B0E 

C? 

00  CA 

0000 

^0CC 

E601 

J^ 

00^ 

E811 

JR 

*  * 

*  TBL_ACCE5S:    ROUTINE    TO   DETERMINE  * 

*  DIRECTOR    CPU    AND   MEMBER    CPU'S.       * 

*  "  $ 

TBL_ACCESS: 

R3,CPU_CNT(R7) 

R14,0R3 

R14.R4  !    CK    IF    OWN    CPU    NO.     ! 

Z,OWN_ID 

TABLE_L0CK'R7) ,#0 


TEST    LOCK 


R14,*0  !    CHECK    IF    LOG    CPU    0?    ! 


Z,BOCTLOAD_CPU         !    YES    ! 
MEMBER_CPU  !    NO       ! 

3OOTL0AD_CPU      START  *****      ! 

a-  %»* 

*  POOTLC«D_CPU:    CPU    ASSUMES    ROLE   AS         * 

*  INITIALIZATION    COORDINATOR.  * 

*  CPU    DETERMINES    NUMBER    OF   CPU  * 

*  IN    SYSTEM    AND    INITIALIZES    THE  * 

*  CONFIG_TAELE    ACCORDINGLY.    IT  * 

*  THEN    IDENTIFIES    ITSELF   AND  * 

*  WAITS    FOR    MEMBER_C?U'S    TO  * 

*  IDENTIFY    THEMSELVES!    AND   THEM  * 

*  CONSOLIDATES    C0NFIG_TA3LE    DATA  * 

*  INTO    SYSTEM    TABLE    'MIN_C0NFIG_  * 

*  TBL).  * 

if.  # 

*  REG    USE:    INPUT      R5   =    NUM3ER    CPU'S         * 

*  R6   =    LOW    LOCAL    MEM      * 

*  R7   =    LO'rf    GLOBAL    MEM    * 

*  R4   =   LOG_CPU    NO.  * 

*u  -i*  *'.»  *>+  »>*  «/*  »»>  *•*  *x»  +**  »«*  *j*  -a*  a*  4*  -1*  ***  ***  *■*  -1*  -**  ***  •**  *'*  •***  ***  *'*  »•* *^  »v ^#  »'* ****** *•*  »•*  »**  «V  »**  •*•  | 

BOOTLOAD    CPU; 

!    LOAD    CPU__CNT   WITH    NEXT    LOG_CPU    NUMBER    ! 
00P0    4D75  LD  CPU    CNT(R7),#1  !    LOAD    LOG_CPU    1    ! 
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0PT2    000A 
00P4   0001 


^PD6  7673 
00D6  000C 
00DA  7631 
00DC  00<?A 
30DE   DF62 


0PE0  7673 
■30S2  0008 
00Vd  0DQ5 
00E6    00^0 


00E8  7673 
00EA  000A 
00EC  A159 
00EE  DE02 
001-0    F83A 


!    COMPLETE   OWN    C0NEIG_TA3LE   ENTRY    ! 

LD«  33, CPU    LIST(P.7)  !    LOG    CPU    0    ! 


LDA 
CAL" 


R14,MEM_MAP(R3) 

MAP   MEMORY         !    ENTER   MEM    MAP    ! 


!    UNLOCK    CCNEIG_TABLE    ! 

LDI  E8, TABLE    LOCK(?7)     !    LOCK    fl DR    ! 


LP 


@R8,#0 


!    CLEAR   LOCK    ! 


!    WAIT    EOR    ALL    CPU'S    TO    IDENTIFY    THEMSELVES     ! 
LPA  R8,CPU_CNT(R7)       !    C?U_CNT    ADR    ! 

LD  39.R5  !    GET    TOTAL    PHYS_CPU    ! 

CALR  WAIT_COMP         !    WAIT    EOR    ALL    ! 

JR.  COMB  IN 


I    **$*#  MEMBER    CPU      START         *****    ! 

*-•-■  -*-  J-  J*  **•  »■*  *V«L*  %V  -'-  w<f  J.**!.   »•*  J-  *.L-«.U  X  dfa  Jb  *»*  dtp  JU  >J**Lm  U*  *J*  «JU  Jb  *•*  W  «J*  -"*  -•»  -1-  *■"-  *J-  *•*  **■*  -*- 
*(-  *r»*F»  *r  *. « *ir  *o  *r»  i*  np  *i*  *»**!•  *i*'r  *»■»*<*  ^p  ******  *»•  -i*?i*  *(-  *i»  <P  *F  v  *i*  *t**n  ■»■  ^'r  n*  *r  *P  n-  iv  *? 

MEMBER    CPU:    IDENTIFIES    ITSELF    IN  * 

CONFIG  TABLE   AND   ENTERS    MEM_  * 

MAP.    WAITS    FOR   DIRECTOR   CPU  * 

TO    SIGNAL    TO    CONTINUE.  * 


* 
* 


REG    USE:    INPUT      R4   =    LOG    CPU    NO. 


MEMBER^CPU: 

!    SAVE    LOG_CPU    NO.     ! 
R10,CPU_LIST{R7 *       !    BASE    OF   ENTRY    ! 

!    DETERMINE    BASE    CF    ! 
!    ENTRY    ! 


00F2 

A14E 

LD 

R14,R4 

00F4 

767A 

LEA 

R10.CP 

70F6 

^00C 

00F8 

8D28 

CLR 
DO 

R2 

00FA 

<?102 

*DD 

R2,#74 

00FC 

004  A 

00FE 

ABE0 

DEC 

R14 

0100 

E601 

JR 

Z,CONT 

0102 

E8FB 

OD 
CONT: 

0104 

812  A 

ADD 

R10,P2 

0106 

A1A3 

LD 

R3,R10 

!    COMPUTE   BASE   ADR    ! 
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!  ENTER  MEM_'vy<AP    IM    TABLE    ^MTRY    ! 

0108    76AE  LDA  ~R14,MEM    *AP(R10)       !    MEM    M*P   B&SE    ! 

010A    00 7 A 

^l^C    DF79  CAI1  MAP_MEMCRY 

!    LOAD    CPU_CNT    WITH    NEXT    L0G_CPU    NUMBER    ! 
010E    76?9  LDA  R8,CPU_CNT(R7) 

C110    <*00A 

0112  2189  LD  R9.GF8  !  CPU  COUNT  ! 

0114  A990  IMC  R9  !  ADD  ONE,  ! 

0116  2F89  LD  G?8,R9  !  *ND  PUT  RACK  ! 

!  UNLOCK  CONF_TABLE  FOR  OTHER  PROCESSORS  ! 
0118  7678      LDA       R8  ,TABLE_LOCK t R7 ) 
011?  0008 

011C  0D85     LD        0F9,#0         !  CLEAR  LOCK  ! 
311E  0000 

!  WAIT  FOR  SIGNAL  TO  PROCEED  WITH  BOOTLOAD  ! 
0120  76A8      LDA       R8 .SIGNAL (R10 )   !  OWN  SIGNAL  ADR  ! 
0122  0000 

ro 

0124  2182        LD     R2,GR8        !  TEST  SIGNAL  ! 

0126  0B02         CP     R2,#l 

0128  0001 

012A  E601        JR     Z,DWN_LD 

012C  E8FB      OD 

DWN_LD: 

!  DOWN-LOAD  PT,OC_LOCAL  INTO  LOCAL  MEMORY  ! 

012E  76A1  LDA      Rl ,MSG_BLK (R10  )    '  OWN  MSG_BLK  ! 
0130  0004 

0132  2112  LD        R2,(?R1        !  CURRENT  COTE  ADR  ! 

0134  3113  LD        R3,R1(#2)     !  LOCAL  LOAD  ADR  ! 
0136  0002 

0138  3111  LD       R14fRl(#4)     !  NUMBER  OF  BYTES  ! 
013A  0004 

013C  BA21      LDIRB     (?R3, GR2  ,R14    !  MOVE  CODE  ! 
013E  0T30 

!  CLEAR  SIGNAL  ! 
0140  0D85     LD       GR8,#0 
0142  0000 

!  SIGNAL  DIRSCTOR_CPU  THAT  THIS  CPU  DONE  ! 
0144  TEDB      CAL?      TEST_N_SST     !  ACCESS  TO  ! 

!  C0NFIG_TA3LE  ! 
0146  767E     LDA      R14t CPU_CNT( R7 ) 
0148  000A 
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0158  2192 
C15A    0302 

015C  0001 
01 5E  ^601 
0160    v&?3 


!    LCG_C?U    NUMBER    ! 

!     INCREMENT    ! 
',R7) 
!    CLEAR   LOCK    ! 


!    WAIT    FOR  SIGNAL    TO    TRANSFER    CONTROL    ! 
DO 

LD  P.2.0R8  !    TEST    SIGNAL    ! 

CP  R2,#l 


014A 

21E9 

LD 

R9.SR14 

014C 

^990 

INC 

F.9 

014F 

2FE9 

LP 

<?R14,R9 

3150 

757V 

LDA 

R14.TAB 

0152 

0008 

0154 

0DF5 

LD 

0F14,#0 

0156 

0000 

OD 


JR  Z.TRN    CNTL 


0162    2112 
0164    1E28 


TRN_CNTL: 

!    TRANSFER  CONTROL   TO    O/S    ! 

LD  F.2.GR1  !    OWN    MSG_3LK    ! 

JP  0R2  !    START    OF    O/S     ! 


1    ♦*###        v^r    OF   MEMBER_CPU        *****    ! 

y*  y, 

-I*  '.- 

*  GLOBAL    INITIALIZATION    STAGE  * 

y#  •»■,-  y*  •.'-  -.'*  »•'  y«  *v  »*■»  -'-  -»v  »y  yu  >'•  «j»  y*yu  ***  y*  y*  •.*-  y*  y#  -**  yu  y«  y*  yu  y*  y»  y*  y.#  >i- j-  %**  «.'»  •*.■  *oy«  y*  • 
*■»■*  t*  *r  *?  *i»  *i*  *»*  ***  *P  1*  *?  *r  *i*  '•'  *f  'i*  ***  *«*  1*  *n  't*  *v  *n  1*  *i~  np  *■-  *r  *i*  *i»  n*  *t-  *<*  or  *»*  *i-  *i»  *r*  *p  *p   J 

COMBIN: 


ry*  y*  y*  *-•  *  y  *  •*•*  y»  -■*  y*  *■-  .<»  .^  v.  *j*  y*  y  §  »•<  ^  -  si,  ,<-  ^v  o*  y#  -■-  y*  .  >*  yuy*yu.jt«u»y*y*y«  «y»  y>  y»  «ju  y*  y* 
•S-  or  n*  n*  n*  or  or  *P  or  or  or  or  or  ***  *r  1*  or  *r  or  *»*  nr  t*  *p  or  nr  i-  ¥  1*  t  t  1*  *r  *i*  -r  1*  15  ¥  t"<*  t 

*      CONSOLIDATE    CPU_ENTRY'S    INTO    TABLE      * 

»,*  3|»  »|C  *,*>  7|C  »,»  3(t  »-|«  *|»  *y»  *j»  *f»  #y»  *f».  5JC  ,,»  »,»  #■,»  >^C  *fi  *,*  3,*  JJs  *,»  »,»  3p  «,«.  »p  ^C  3,5  3J»  *,»  *y.  -y.  *,«  3,*  »^C  #^  Jp  *^»  " 


!    CONSOLIDATE   LOG    CPU    TO    PRTS    ID    IN    TABLE    ! 


0166 

A171 

LD 

R1,R7 

0168 

7671 

LDA 

?.lfCPU. 

.LIS 

016A 

000C 

016C 

A159 

LD 
DO 

R9.R5 

016E 

0101 

ADD 

Rl ,#74 

0170 

004A 

0172 

*B90 

DEC 

R9 

0174 

E601 

JR 

Z,HA7E_ 

_ADR 

0176 

ESF3 

OD 
EA?E_ADP: 

0179 

76^9 

LDA 

R9.CPU 

LIS 

!    ADR    OF    NEXT    ENTRY    ! 


!    ADDRESS    ! 
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017A  000C 

!  CPU  ENTRY'S  ! 
017C  7692      LDA       R2  ,  CPU_IL (H9 ) 
017E  0002 
0180  A154     LD        R4,c5 

DO 
0182  212D        LD     R13.0R2       !  STORE  PHYS  ID  ! 
0164  2E1D        LD     0R1,R13 
0186  A911         INC    Rl ,#2 
0188  0102         *DD    E2,#74 
018A  004A 

018C  AB40        DEC    R4 

^18F  0B04         CP     R4,#0         !  CK  IE  FINISHED  ! 
0190  0000 

0192  E601         JR     Z,MEM_CONSOL 
0194  E8E6     OD 

!  CONSOLIDATE  MEM_MAP'S  INTO  MIN_CONFIG_T?L  I 

MEM_CCNSOL: 
P196  2104     LD        r4,#32 
0198  0020 

2I19A  ^679     LDA       R9  , C?U_LIST(R7  ) 
019C  000C 

019E  7692      LDA       E2  ,MEM_M  AP(  R9 )   !  LOG_CPU  0  ! 
01A0  000A 

DO 

01A2  212D  LD  R13.GR2     !  COPY  LOG_CPU  0  VALUES  ! 

01 A4  2E1D  LD  G>R1,R13 

01 « 6  J 911  INC  HI, #2 

01 A8  A921  INC  R2,#2 

01AA  AB40  DFC  R4 

01AC  E601  JR  Z.NXT  CPU   !  GET  NEXT  LOG^CPU  ! 

01AE  E8F9  OD 

NXT_CPU: 

!  M.AIN  LOOP  FOR  CONSOLIDATION  OF  REMAINING  MAPS  ! 
01P0  A15B      LD       R11,R5 
01B2  AEB0      DEC       Rll,#l 
01B4  E61S      JR        Z,LL  !  NO  MORE  M&PS  TO  DO  ! 

DO 
01B6  210D        LD     R13,#32 
01B8  0020 

01BA  A129        LD     R9.R2 

013C  7692        LDA    R2 tMEM_MAP(R9 )   !  NEXT  LOG_CPU  ! 
01BE  000A 
01C0  0301         SUB    Rl,#64    !  ADR  NEW  T3L  MEM_M.AP  ! 

01C2  0040 
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DO 

PIC 4-    2123  LD  R3,GR2         !    MEW    VALUES    ! 

01C6   2114  LI  R4,r?Rl         !    OPIG    VALUE    ! 

71C3    3A34  CPB  RH4.SH3       !    COMPARE    ! 

01 CA    EF01  JR  NC,CCMP_LOW 

01CC    A034  Lr3  RH4,RH3      !    SAVE    NSV    VALUE    ! 

COM?_LOW: 
01CE   8AFC  CPB  RL4.RL3 

0110    EF01  JR  NC, AGAIN 

P1D2    A0*C  LDB  DL4,PL3       !    SAVE    NEW    VALUE    ! 

AGAIN: 

01D4    2714  LD  GR1.R4         !    SAVE    MAP   BLOCK    ! 

01D6    »911  INC  Rlf*2 

01De    A921  INC  R2,#2 

01 DA    ABD0  DEC  R13 

P1DC    Y601  Jr  Z.OVR  !    GET    NEXT    MEM_MAP! 

01DE    ?SF2  OD 

OVR: 
01F0    *BB0  DEC         ?11,#1 

01E2    E601  JR  Z,LL         !    FINISHED    ! 

01E4   E8E8  OD 

*  OPERATING   SYSTEM   CORE    IMAGE  * 

*  LOAD      STAGE  * 

«'«   •J-r  -J*   •>'■•   »**   »'■»  — >*   »V  «  '»  •.'»   «J*   -*«■  *X»    J»  J»    »•-  <JL»   «J*  %•*  «,**  »•#  «J«  -.'*  «'»  -'^    *•*  *'»    -  '  -  V  V'  ■*'*    *  '*  >'■»  V'  "J*   *'*  «'■»   -  '*  ■"■'■»  *V     f 

1*  *r*i*  1-  <v  *>*•!•  *r  -»"i*  -»»  -.'^r  ^*p  *i**r»  ■*r»*»*  *•*  *■»  'i-n*  *<*•»•  -vi*  *i*n*  *r  *t»  -v  ^f^r  0s  *v*r  *pi*v  t 


LL: 

!  SUPERVISE   P-OC_LOCAL   LOADING    ! 
01E6    3404  LDAR  R4 ,PROC_LOCAL      !    LOAD   KERNEL    ! 

01E8    01BE 
01EA   DF6F  CAL?  COOPD_DWN_LD 

!  SAVE    ENTRY    ADDRESS    TO    KERNEL    ! 
01EC    61E4  LD  R4,DWN_ADR(R14) 

01EE   0316 
01E0    6FE4  LD  START    ADR'R14),R4 


01F2    0318 


!  LOAD    PROC_GLOEAL   0?   0/S     ! 

01F4   3404  LDAR  R4  ,?ROC_GLOBAL      !    LOAD    SUPERVISOR    ! 

01F6    01BF 

01F6    DF76  CALF.  COORD    DWN    LD 
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<7iys  6100 
01FC  0318 
01FE  6174 
0200  000C 
3202    A153 

0204  6F40 
0206    0004 

0209  AB30 
02 0A    E603 

020C   0104: 

020E   004A 

0210  E8F9 

0212  DF52 
0214  2104 
0216    0000 


^218    A102 

021A    1E28 


021C 
021C 


!    SIGNAL    ALL    CPU    TO    TRANSFE-    CONTROL    TO    o/s    ! 

i0,  ST  ART    ADR 


LD 

LD 

LD 
DO 

LD 

DEC 

JR 
ADD 

OD 
END_SIG: 
CALR 
LD 


R4,CPU    LIST(R7)       !    LIST    BASE   ADR    ! 


H3.R5 

MSG_BLK(R4) ,R0 

R3 

Z,END_SIG 

?4,#74 


!    NO.    CPU'S     ! 

!    STORE    START    ADR    ! 

!    NEXT    CPU    ENTRY    ! 


SIGNAL_CPU 

R4,#0  !    SAVE    LOG    CPU    NO.     ! 


!    TRANSFER    CONTROL   TO    START    OF    CODE    ! 
L  D  R2  ,  R  0 

JP  GR2 

!    *****  END      DIRECTCR_CPU  *****    i 

END    BOOTSTRAP 

MAP   MEMORY      PROCEDURE 

f»l»  **•■  »V  -■*■  V*  •*'*  ~f*  *>'  *  *■ **  -J*  ***  •**  **■*   »' '  ***  ■"■**  *V  *A"  *■*'  -■'»  ■*'-  *■*-■  *■**  »**  »'■*  ***  *■' *  ■*'■'  ***•  *■'■*  ***  *■*-  •J'  nV  *J*  »'>  »' -  •>''  **■*  »** 
*i»  ^*»r  n*  or  *o^*  oj-^4*  *.- 1-  *r  *r  'r*v*  or  *r  *r  or  or  *i-'r-v»  ****¥■  *r  *»»  or  or  *r  «v  or  *r  nr  or  *r  or  *i»  *i-  V 


^ 


* 
* 


MAP   MEMORY:    MAPS    CPU    MEMORY    ACCESS 
BY    DOMAIN,    AS    TO    LOCAL    (1), 
GLOBAL    (2),    DUAL_USE    (3), 
NON    USE    (4) ,    NON    ACCESS    (5) . 


*      REG    USE:    INPUT      R14   =    ADR    MEM   MA? 


# 


021c 

2101 

LD 

^21E 

4100 

0220 

3404 

LDA? 

0222 

0034 

0224 

3402 

LDAR 

0226 

0084 

DO 

0228 

2149 

L 

a.  >.w  .1,  ,v  „i/  t'.  u.  >'■»**  -j..  «a*  ,'-•*,  <J**b  *J*«b«A»«/UJ'  J*  u*  J*  *»-  J.  ,<,  ,'-  ^*  *u  «#  vt.  a*  J,  ^  »'-  J-  .'-  .',  »u  s«.  • 
or  »**  *y»  *r  »r  nr  or  *r  or  1-  or  n5  *r  *i*  »i»  »,»  »i*  or  or  5r  *v  'r  or  »r  or  »p  *■)■»  *c  or  1*  *•*•  »r  or  *r»  or  «t-  or  op  or  *»*  T 

ENTRY 

I    MOVE    CODE    TO    LOCAL,    NORMAL    MEMORY    ARE.*    ! 
R1,#%4100  !    NEW    LOCATION     ! 


R4,N0RM_MAP         !    START   OF    CODE 
R2.N0RM    RTN         !    END   OF    CODE    ! 


R9,0R4 


!    MOVE    CODE    ! 
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3  22/ 

2F19 

LD 

0E1.P.9 

022C 

PB42 

C? 

R2.R4 

022E 

?603 

j  a 

Z, BEGIN    MAP 

0230 

A  911 

INC 

Rl  ,*2 

0232 

A941 

INC 

R4,#2 

0234 

F8F9 

OD 

!    CK    FOR   END    ! 


0226  S1D4 
0238    A1E1 

023.4  Q7544 
023C  E604 
023E  0304 
0240    0800 

0242  A911 
0244    E8FA 

0246    A.11E 

0243  A1D4 

024A    2109 

024C  F804 
024F    A943 


0250  2108 
0252  4100 
0254  1F80 
0256    9E08 

0258 

0256 


!    BEG-IN    MAPPING   NORMAL   MODE   MEM    ACCESS     ! 
BEGIN_MAP: 

R4,R13         !    LOW   BLK    ACCESS     ! 

R1,R14 


LD 
LD 
DO 


TEST 
JR 

sirs 

INC 

OD 

FND_BLK: 

LD 

LD 


R4 

Z,FND_BLK 

R4,#%0600 

Rl,#2 


R14,R1 

R4.R13 

!    ?1         M*P   END    BLK,       R4   =    AD?     ! 
LD  R9,#%F804 


INC 


R4,#4 


!    MAP    AND    ENTER    FROM    NORMAL    MODE    ! 
LD  R8,#%4100 


CALL 

RET 


0R8 

END         ~    MEMORY 


NORM    MAP    PROCEDURE 

»„>-•  <JU  JU  37  a  ,»-^i*  *r*  ^i*  »i.  .«,  ,.*»o  .■-**-  .•-  *J-  •J-.V  »l»  0#sl*«V  «*«*JU  ,,»*  »■,  kV  J*  V*  -*£  "'-  *■'*  *'•*  ■4-  »■■*  V'  ^*  *•*  *** 
*t*  *t*nr  'i-t  1**1*  o*  *■»*•»»  'f"i»i*'i**i"ri("i"r'r  *.*?(»  ?i*  *(•  .^  ->■«  -p.  *n  -i*  *t*  *ir  *r  *r  ^  *t*  i*  *i*  *v»  I*  i* 

*  NORM_MAP:    MAPS    MEMORY    ACCESS    IN    THE   * 

*  NORMAL   MODE    INTO    CONFISCABLE      * 

*  FOR   CPU.  * 

*  # 

*  REG-    USE:    INPUT      Rl    =   MEM_MAP    ADR  * 

*  R4   =   MEM    ADR  * 

*  R9    =    STOP    ADR  * 

*  # 


ENTRY 

0258 

2102 

LD 

R2,#%AA55 

025A 

4A55 

025C 

2110 

LD 

R0  ,GP.l 

!    NEW    R/W    PATTERN    ! 
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DO 


025E 

210* 

LD 

R10,ni000 

0260 

1000 

0262 

7 DA  A 

LDCTL 

FCW.R10 

0264 

2143 

LD 

R3tGR4 

0266 

8P23 

CP 

R3.R2 

0268 

ESI? 

JR 

MZ.NO  ACCESS 

026* 

'143 

LD 

R3,P4 

026C 

A931 

INC 

R3,#2 

026E 

213B 

LD 

aii,(?R3 

027* 

0B0B 

CP 

Rll,#l 

0272 

0001 

0274 

EF03 

JR 

MZ  ,GLOB_ACC 

!  LOCAL 

ACCESS  ! 

3276 

1143 

LD 

R3,R4 

027Q 

0303 

SUB 

R3,#4 

027  8 

0*04 

0  27C 

213P 

LD 

F11,(?R3 

027E 

0B01 

CP 

R1,#%55AA 

02S0 

55  A  A 

0282 

^602 

JR 

Z,DUAL  MODE 

0284 

C901 

LDB 

RL0,#%01 

0236 

E809 

JR 

CYCLE 

DUAL  MODE: 

0288 

C803 

LDB 

RL0t#%03 

023' 

F807 

JR 

CYCLE 

SLOB  ACC 

• 
• 

028C 

PB5B 

CP 

m,R5 

<*28E 

EE<^2 

JR 

NZ,NON  USE 

0290 

C602 

LDB 

RL0,#%02 

0292 

E803 

JR 
NON  USE: 

CYCLE 

0294 

C804 

LDB 

RL0,#%04 

0296 

E801 

JR 

CYCLE 

NO  ACCESS: 

0298 

C805 

LDB 

CYCLE: 

RL0,#%05 

029  A 

7F03 

SC 

#3 

029C 

2710 

LD 

3R1.R0 

029E 

9B94 

CP 

R4.R9 

02A0 

F605 

JR 

Z,NORM  PTN 

02A2 

0104 

ADD 

R4,#%0800 

!  CHG  TO  NORMAL  MODE  ! 

!  TEST  EOF.  R/W  ! 
!  ^0  R/W/  ! 

!  CK  FOR  LOCAL  ! 
!  CPU  NUM  =  1?  ! 


!  CK  FOR  SYS  MODE  R/W  ! 

!  GET  PATTERN  ! 

!  ENTER  LOCAL  ID  ! 

!  ACCESS  BY  M/S  MODES  ! 

CK  FOR  GLOBAL  ! 

!  ENTER  GLOBAL  ID  ! 

!  ENTER  NON_USE  ID  ! 

!  ENTER  NON_ACCESS  ID  ! 

!  CHG  TO  SYSTEM  MODE  ! 

!  CK  FOR  COMPLETION  ! 

!  NEXT  MEM  BLOCK  ! 
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02^4  0Q^0 
02*6  ?911 
02*3    2110 

n 2  a  a    E8P9 


INC        P.l,#2 

LD  R0,@R1 


OD 


!    NEXT    WAP    BLOCK    ! 


02AC    9E08 
02  A  E 
02AE 


NORM_RTN: 
RET 

END    MOEM_MAP 

SYSTEM    CALL      PROCEDURE 

't'tt  *i*  *i*  *t*  *n  *»*  *>*■  *r  *w*  *p  *i*  ••"  *i*  *i"  *»*  *i*  *»*  »i*  *»■•  »»■•  *(■•  *v»  *c  'i*  nr  *i*  *y»  *•■  *p  *r*  *i*  *«*  *»*  'i**!*  •r'  *■»'*  "P 

*  * 

*  SYSTEM_CALL:    AFFECTS    PRIVILEDGED  * 

*  INSTRUCTION    EXECUTION    IN    THE 

*  NOFM&.L    MODE.  * 

*  1    =    BUS    LOCK  * 

*  2   =    BUS    UNLOCK  * 

*  3   =    CHG    FCW  * 


ENTRY 

02AE 

93  F0 

PUSH 

02B0 

31F0 

LD 

02B2 

0002 

02B4 

8C08 

CLRB 

0236 

0B00 

C? 

02B8 

0001 

02BA 

EE04 

J?. 

02BC 

3B26 

OUT 

^2BE 

FFF9 

02C0 

97^0 

POP 

02C2 

7B00 

I  RET 
CK2: 

02C4 

0B00 

CP 

02C6 

0002 

<72C8 

TE04 

JR 

02CA 

3B26 

OUT 

02CC 

FFF8 

02  CE 

97F0 

POP 

02D0 

7B00 

I  RET 
CK3: 

02D2 

0P00 

CP 

02D4 

0003 

02D6 

EE08 

JH 

02D8 

93FB 

PUSH 

02DA 

210B 

LD 

O?15,R0 
R0,R15(#2) 

RH0 
R0,#1 


!    SAVE    WORK    PEC    ! 

!    GST    INSTRUCTION    ! 

!    GET    EXECUT.    CODE    ! 
!    CK    FOR   BUS    LOCK    ! 


M7    P  K  2 

BUS    LOCK.R2       !    LOCK    MULTIBUS    ! 


?0,@R15 


F.0,#2 


!    RESTORE   WOP.K   REG    ! 


!    CK    FOR   UNLOCK    BUS     ! 


N7    CK3 

EUS    UNLOCK, R2    !    UNLOCK   MULTIBUS     ! 


R0,0R15 


R0,#3 

NZ  .NONE 

GR15.H11 

T>11,#%5000 


!    RESTORE   WORK   REG    ! 


!    CK    FOR    MODE   CHG    ! 
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02DC 

5000 

tf2Dv 

33TB 

LD 

0210 

0006 

02E2 

97FB 

POP 

02E4 

97^0 

POP 

02E6 

7B00 

IRET 
NONE: 

02E8 

97F0 

POP 

02EA 

7B00 

IRET 

ai5(#6),Rll 

Rllf@R15 

R0.GR15  !    RESTORE    WORK   REG    ! 


'0,(^15  !    RESTORE   WORK    REG    ! 


02EC  END    SYSTEM_CALL 

?2EC  WAIT    COMP   PROCEDURE 

»■*'*  5fe*Jff  3B  %V  *»-  JU  »A»  -A.  ***  %A*  *u*l»  *jU«JU  v(,  o,  iy  *■'  -1*  *>-  •*'  ■>"■•  v1*  u-  -j-  J,  ..i*  »*-  .  *  -.u  -J.  *ju  vl.  .a*  •*<  -u  u*  »u  j- 
*i*  t*  *i*  *»*  *r»  *r  n*  "V  i*  n*  *»*  'i"  *•*  *v  *r  *■»"*  ***  *r  *r*  t*  *r*  *tr  ^p  n*  *»•*  *\-  I*  *i*  -v  *r  *?  *i*  *r*  n*  n*  *p  *»*  i*  *i*  n* 

»•-  *i* 

*  WAIT    COMP:    WAIT   FOR    SPECIFIED   MEM        * 

*  LOCATION    (R8)    TO    CONTAIN    THE  * 

*  SPECIFIED   VALUE    (R9)    BEFORE  * 

*  RETURN  .  * 

*  * 

*  REG   USE:    INPUT      R6   =    ADDR  * 

*  R9   =    VALUE  * 

*r»  *■* 

«JU  U-  *1*  <JU  *U  *•*  mJU  <JU  -J"  -**  -1'  »'*  V*  ■** **'*  -**  **•*  -,*  ** '  **•-'■•  V*  ***  -1-'  *V  «■*  i1-  ***  ***  »V  ***  -'-  o»  *i*  »«*  «t«  *1*  it,  j«  *J-    f 

*»*  *i*  n*  ***  *v»  *i*  *«-  *p  **>  nr  -I*  -t-^  'i**i*  *j5  *i*  *%+  *i**i*  '<*ns  *r»  *i**P  f*n  'v  i*  *»r  *»*  »r  *r  *v  'i*-  ***  »r  *r  *r  *P  I 


ENTRY 

DO 

02EC 

218D 

LD 

R13.GR8 

!    GET    VALUE    ! 

02EE 

PB9D 

CP 

R13.R9 

!    CK    FOR    MATCH    ! 

02F0 

F603 

JR 

Z.GOT    SIG 

02F2 

1904 

MULT 

RR4,#1 

!    DELAY    ! 

02F4 

0001 

02F6 

78  FA 

OD 

GOT_SIG: 

02F8    0D85  LD  <?R8,#0  !    CLR    MSG   BLK    ! 

02FA    0000 

02FC    9E08  RET 

02FE  END    WAIT    COMP 
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02FE 


GLOBAL 
CPU  W&IT 


PROCEDURE 


f-  ■  -  •.-■  «~V  >■■ .  *j  *  i1.  ou  ■»'«>  -.'^  ou  *x#  »u  yu  « t*  s**  0^  *j*  «j  t  *j*  «.■*  «•■■»  ^'  -  »»^  o  *  -  ■*  «j*  •*>*  -'-  »v  *v  -J-"  "•*-  --'-  -•'*  *V  -.'■•  --' »  •""  -1*  * 
i^  *i*  i*  *y  *(*  ?t  •  -i*  *i*  **•  'i*  *t*  *>■*  n^  *i*  *r  *t-  -v  *r  i*  *i*  *iv  o*  i-  "r*  *P  *i"  't*  t"  n*  *i*  **»  *»■•  n*  *i*  *i*  V  i*  *r«  f»  * 


*  CPU  WITS  APPROX.  2MSEC  FOR  ALL  * 

*  CPU'S  TO  COMPLETE  THE  SAME  TASK  * 

*  BEFORE  CONTINUING.  * 

ENTRY 


?2FF 

2103 

LB 

R3,#50 

0300 

0032 

DO 

0302 

1904 

MULT 

RR4,#1 

C3?4 

0001 

0306 

»B30 

DEC 

?3 

0308 

E601 

JR 

Z  .RETRN 

030  A 

fsfb 

OD 

RETRN: 

030C 

9E09 

RET 

F30E 

END  CPU  W» 

IT 

!30E 


030E  A173 
0310  0103 
3312  0800 


COORD  DWN  LD   PROCEDURE 

«v'«  *v  ***  •»**  3B  ***  *■**  ***  95  **•  *•*  sfc  ***  »**  v*  v*  •**  »'*  **•*  *■**  ***  **#  sfe  *v  »**  *'*  **»  V'  **»  site  ***  •*•  ***  ***  ife  v*  *■**  **•*  A  *** 
9fi  *fi  »p    *(»  ?,»   »,■«  »,»  *)"•  *t»  *!»  f(»  J(»  <-,■•    »,»  #^    >(•»  *|%  »(»  *|«  »j»  *,■»  >y*  *f%  *(^  *|*  ^|»  *i»  *|»  *,»  ^*  #,»  »,-  #|^  »,■»  *|*  ?,»  »,*.  *|»  »(%   *,■» 

*  load  local:  loads  processor  local   * 

*  Portion  op  o/s  into  global  mem  * 

*  and  supervises  loading  3y  all  * 

*  cpu's.  sets  down-load  inst.  in  * 

*  msg  blk  op  each  cpu.  * 

%V  »*—  «A*  */,-  *iU  *4U  *V  »'*  «V  V*  »V  » *-  *A*  »V  V*  *'-  ^f  -**  V*  V*  »'"  V'  **■*  ***  "»'*  »'*■  •>'"  mJ~*  *-'*  "**  *-"*  w"-  *•'"  ^^  **•  *■'■*  "J^  "-**  *'*  ■**"    I 

-»»  J|*  *(S  ^,»  •-!-  ^,*.  «y»  »t»  --[*.  .-p.    ^^  - , .  «|*    ^,»  ^p    *,-   ^r»   *pi  J^  J,»   »f»  -,~  ^-  »|»  Af*  ^f»  Ap   ^»  ^p.   *y  #f*  J,-  ^,»  >j*   Sf%  3ft  *(•  *^  #^«  *i%     | 

ENTRY 
LD 
ADD 


R3.R7 
R3,#%0800 


!  GLOBAL  LOAD  ADR  ! 


0314  8D88 


CLR 


»8 


!  RESET  BYTE  COUNT  ! 


0316  7D15 
0318  611E 

031A  0000 


!  RESTORE  PREVIOUS  DATA  AREA  ! 
LDCTL     Rl.PSAPOEE 
LD        R14.DATA  AREA(Rl) 


031C  5EC0 
031E  0000* 


!  LO^D  FILE  FFOM  MCZ  ! 

CALL      LOAD  FILE(R12) 


0320  A173 


!  SET  DOWN-LOAD  INSTRUCTIONS  FOR  OTHER  CPU  ! 
LD        R3.R7 
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0322 

0103 

ADD 

0324 

09^0 

0326 

7671 

LDA 

0328 

000C 

032A 

7612 

LDA 

032C 

0004 

"32E 

61 E4 

ID 

0330 

0316 

0332 

A 156 

LD 
DO 

0334 

2E23 

LD 

0336 

3324 

LD 

033? 

0002 

033* 

3329 

LD 

033C 

0004 

033E 

A"R  60 

DEC 

^34^ 

E603 

JR 

0342 

0102 

ADD 

0344 

004A 

0346 

E8E6 

CD 

R3,#%0800     !  GLOBAL  LOAD  ADR  ! 

K1,CPU_LIST(R7)      !  BASE  OF  ! 

!    TABLE    ENTRIES     ! 
R2,MSG_BLK(?1)     I    MSG_BLK    LOG_CPU    0    ! 

n4,DWN  ADR(R14^   !  PROC  LOAD  DOWN-  ! 


R6.E5 


!  LOAD  ADDRESS  ! 
!  RS  =  SIZE  ! 
!  TOTAL  NO.  CPU  ! 


0R2,R3    !  LOAD  GLOBAL  ADR  MSG1  ! 

R2(#2)tR4  !   LOCAL  ADR  MSG2  ! 

R2(#4),R8  !  SIZE  OE  CODE  MSG3  ! 

R6 

Z,DO_SEL? 

R2,*74    !  ADR  NEXT  LOG  CPU  MSG  BLK  ! 


0348 
034  A 
034C 
034E 

C350 
0352 
0354 
0356 
0358 


7671 
000C 
7612 
0004 
2121 
3123 
0002 
3124 
0004 


DO  SELE: 

!  Load  procedure  local  code  into  own  local  mem  ! 
lda     r1,cpu  list'r7) 


LDA 

LD 
LD 

LD 


?2,MSG_BLK(R1)   !  OWN  MSG_BLK  ADR  ! 

R1.0R2        !  SOURCE  ADDRESS  ! 

R3,R2(#2)     !  DESTINATION  AD?  ! 

R4,R2(#4)     !  NUM3ER  BYTES  ! 


035A  3A11 
035C  0430 


LDIRB 


G>R3,0R1,R4         !    DOWN-LOAD    CODE    ! 


0355  4D75 
0360  000 A 
0362  0001 


!  SET  C0NFIG_TA3LE  CPU_CNT  TO  LOG_CPU  1  ! 
LD        CPU  CNT'R7) ,#1 


!  SIGNAL  ALL  CPU  TO  PROCEED  WITH  DOWN-LOAD  ! 

0364  DETB  C AIR      SIGNAL_CPU 

!  WAIT  EOR  ALL  CPU  TO  COMPLETE  ! 

0366  7678  LDA        R8, CPU_CNT( R7 ) 
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"369    ??<*\ 

036A    A159  LD  R9,R5  !    NUMBER    CPU    ! 

036C    D041  CALR  Wj>IT_COMP       !    WAIT    FOR    COMPLETION    ! 

036E    9E08  RET  !    RETURN    TO    DIRECTOR_CPU    ! 

0370  END    COORD_EWN_LD 

0373  SIGNAL    CPU      PROCEDURE 

*t-  -i**r  'i*  -r  »i**v  nF  *r  *»»  *r*  *p*v  *c*«r*  -i»n*  *.**i*  *.»  -r*-v  *r  *i**t*  t*  -■-  t-t*  *v  *i*  *i»«i»-y»  i*  *r  *\»  «y  *i*  *v 

*  * 

*  SIGNAL_C?U:    PLACES    SIGNAL    (#1)    IN         * 

*  SIGNAL    BLOCK    FOR    EACH   CPU    EN-      * 

*  TFY    IN    CONFIG_TABLE.  * 

mi*    -J'   »'-  *1#  *A*  .'*  *JU  %•*  O-  «.'-»  »'*  «'■*  -'-  -Jr  *Ar    -'-  k>  »•<  v'jf  «•»  »'-  *.'»  «*•  »'»  »<»  •'-  -■-.  •>'-  <J*  »'*  -''  tX*   »'-  •.'-  «.'*  I1*  kb  »'.»  v**  *'•   ■ 

*i-  "\*  -»•»  *.-»  *?  *i  •  ^*  *r  *v  "•  •  *f*  *r  *»*  i"  *»*  -r  »i*  *»»  *r  *»»  "«*  *r  -v  *r  *o  *r  -r  *r  -»»  n*  *»*  *n  ^t"  *t*  **•  "i-  *i»  *v*  *r  *r  J 

ENTRY 

!    SIGNAL    ALL    CPU    TO    DOWN-LOAD    ! 


!    L0G_CPU   1    ENTRY    ! 
!    TOTAL    NO.    CPU    ! 


0370 

7673 

LDA 

R3tCPU_LI 

0372 

000C 

0374 

0103 

ADD 

-3, #74 

0376 

004A 

"379 

«154 

LD 

R4,R5 

fl37« 

AB40 

D?C 

R4 

037C 

E608 

JR 
DO 

Z,ALL_SIG 

037E 

4D35 

LD 

SIGNAL(R3 

3390 

0000 

0382 

0001 

0364 

AB40 

DEC 

?4 

0386 

E603 

JR 

Z,ALL    SIG 

3388 

0103 

"DD 

?3  ,#74 

036A 

004A 

038C 

F9F8 

OD 
ALL    SIG: 

038F 

9E08 

RET 

"390 

END    SIGNAL 

CPU 

!    NEXT    LOG    CPU    AD7;    ! 
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0390 


TEST_N_SET      PROCEDURE 

-,,  ^%  i*  i*  *r*  *»*  *r  ***  •<»  «v  *i*  *i*  n*  -i-  *r>  «y*  -v  *r  *f  •*•  *r  *■»*  *r»  *v»  *r*  'r  t-  *r  V  -r  *o  *r  'r  «v  *r>  *r  *r  *r»  t*  *r> 


0390  3B26 
?392  FFF9 
0394  0D»6 
0396  3B26 
0398  FF^3 
039A  9E08 
039C 


*  T?ST_N_SET:    ROUTINE   UTILIZING    HDW3  * 

*  TSET    INSTRUCTION    AND  * 

*  BUS    LOCKING    ABILITY   TO  * 

*  AFFECT    MUTUAL    EXCLUSION  * 

*  ON    ACCESS    TO    COMMON  * 

*  DATA   STRUCTURES    LOCK.  * 

*  REG    USE:    INPUT      R8   =    ADR    OF    LOCK  * 


BUS    L0CK,R2         !    LOCK   SYSTEM    PUS    ! 


ENTRY 
OUT 


TSET 
CUT 


3RS  !    TEST    TA3LE    LOCK    ! 

BUS    UNLOCK, R2    !    UNLOCK    SYSTEM   BUS    ! 


RET 
END   TEST    N    SET 


739C 


GLOBAL 

MEM    INT      PROCEDURE 

f«t«  »l*  «C  *t*  *L.  *1«  *JU  ~J*  *X-  JU  *V  »l*  %'*  «.'-  «JU  -J^  »V  O-  ~Lr   -Jir  «JU  »"*  it.  *i»  -,»*  „'*.  *.'*■  »' .  0*.  *'.•  *JU  J-  «■*  ***  -'■*  *■' *  *■'"  -'"  -**   *'■* 
^*  »ts  Jj»  *|»  ^j*  »(*  *(*  »,»  »p  J^  »,*  ^|%  ^"»  ^y»  J,»  *,»  *|»  »(-»  *]■•  *(»  *-(•  *i»  *j»  *,■»  *(«»  »^»  -  i*  »(-»  *,*  *f»  *|*  »(*  ?fr  *^   ^*  *»»  *|»  *(*  *^»  »!■» 


* 
* 
* 


MEM_INT:    INTERRUPT   HANDLER   FOR    AN 
ILLEGAL    LOCAL   MEMORY 
ACCESS    IN    THE    NORMAL   MODE 
SAVES    MEMORY    ADDRESS    OF 
NEXT    BLOCK. 

REG   USE:    INPUT      R3   =    RTN    POINT 

R4   =    FAULT    ADR 


ENTRY 

5  !    RESTORE    BLOCK    ADR    ! 


!    SAVE    ADR    ! 

!    RESTORE    STACK    ! 

!    RTN    TO    SYS    CODE    ! 


039C 

01^4 

ADD 

P4,#CS0 

039E 

0800 

03A0 

A14D 

LD 

R13.R4 

03*2 

010F 

ADD 

R15,*6 

03A4 

0006 

03A6 

1E38 

JP 

0R3 

03*8 

END    MEM_ 

.INT 

PROC    LOCAL: 

03  A  P 

0D 

BVAL 

%0r 

73:' A 

4C4F 

WVAL 

'LO' 

03  AC 

4144 

WVAL 

'AD' 

03AE 

204B 

WVAL 

'    K' 
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0330 

4552 

WVAL 

'EH  ' 

03B2 

4E45 

WVAL 

'NE' 

03P4- 

4C20 

WVAL 

'L    ' 

03B6 

2^ 

BVAL 

r        t 

PROC    GLOBAL: 

0337 

11 

BVAL 

%11 

^33B 

4C4F 

W  7  a  L 

'LO' 

03BA 

4144 

WVAL 

'AD' 

03BC 

2053 

WVAL 

'    S' 

033F 

5550 

W7»L 

'UP' 

03C0 

4552 

WVAL 

'ER' 

03C2 

5649 

WVAL 

'VI' 

^3C4 

534F 

WVAL 

'SO' 

03C6 

5220 

WVAL 

'R    ' 

03C2 

20 

BVAL 

*    * 

FND    BOOTSTP.P 
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2.      SUPPORT!    ^ODULE    (same    as    Appendix    C) 


3.      SUP^CRT2   MODULE    ■'  sare    as    Appendix    C) 


4.       SUPP0RT3A    MODULE 


Z80£?*SM      2.02 
IOC  OEJ    CODE 


STMT    SOURCE   STATEMENT 


1    SUPP0RT3A    MODULE 
$LISTON      $TTY 


* 
* 


SUPP0PT3A    MODULE:    MODULE    THREE   FOR  * 

SECONDARY    STORAGE    PRIMITIVES  * 

FUNCTIONS    SUPPORT.    STRICTLY  * 

HARDWARE    DEPENDENT;    SHOULD  * 

MEET    STORAGE    DEVICE    REQUIRE-  * 

MENTS    FOR    INTERFACING.  * 

NOTE:    DUPLICATE   OF   MONITOR    LOAD_CMD  * 

MODULE.  * 


-»-  «<*  *l*  -**  «JU  *J*  v-  V*  «JU  «JU  *•*  *i<  *»*  »'*  O*  »•*  *A*  V*  ■**■*  ***  *>'*  **•*  **•  **•*  *•*  *'*  *'"  ***  ***  ***  *ft  *t+  *V  »*■*  ^tf  ^*»  ****  **»  V*  »'*   I 
*y*  *y»  -,-.   *,•»  *f*  •*»".  7^  3^5  ?|i  ?p  Jf»  *,«  *|-   *t»  »i«.  *■,»  *(•  *!■•  *f»  *,%  *f»  *p  *,»  *!»  *,-.  #|*  -,-»  *,-  *■,»  <*|»  *|*  *f*  »i*  wfi  *f*  *p  »(*  *,*  Jf  »|*     ( 


* 


CONSTANT 

RXR                : 
TXR 

=      2 

:=      0 

PAP 

PORTAD         : 
PORTBD 

:=      7 
=      %FFD9 
:-      %FFE1 

PORmAC 
PORTBC 

:=      %FFDB 
=      %FFE3 

IDPORT 
ICPORT 

:=     %FFCB 

:=      %FFC9 

TCMD         := 
TDTA         :  = 

%FFD2 
%FFD0 

BUS    LOCK    :=%FFF9 

BUS" UNLOCK    :=%FFF8 

VINTR  :=      %(2)0001000000000000 

VIBIT  :=      12 
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ESCAPE 

.=   %1B 

BS 

:=   %08 

L INDEX 

:=   %7E 

CR 

:=   %0D 

LE 

:=   %0A 

TXOFCH 

:=   %13 

TXONCH 

:=   %11 

INSIZ 

:=   128 

!  INTBUF  SIZE  ! 

OUTSIZ 

:=   128 

!  OUTBUF  SIZE  ! 

RBSIZ 

.=   256 

!  RING  BUFFER  SIZ 

!  BIT  PCSITICMS  IN  MONITOR  FLAG  WORD  ! 

TRPMDE 

=    0 

ISTOP     : 

=    1 

OSTCP     : 

:=   2 

SNDMDE    : 

=   3 

LDMDE     : 

.=   4 

ESC       : 

=   5 

TXMSK 

'  =  £6 

EXTERNAL     PRNTBF 

PROCEDURE 

EXTERNAL     C 

^ETNXT 

PROCEDURE 

EXTERNAL 

E^OR 

LABEL 

EXTERNAL 

SNDCHR 

PROCEDURE 

EXTERNAL 

GETADR 

PROCEDURE 

EXTERNAL 

GMCZAD 

PROCEDURE 

EXTERNAL 

SNDMCZ 

PROCEDURE 

EXTERNAL 

CONVERT 

PROCEDURE 

EXTERNAL 

PBUFNC 

LABEL 

EXTERNAL     SNDMSG 

PROCEDURE 

EXTERNAL     CONVW 

PROCEDURE 

INTERNAL 

$SECTION  DATi 

L_DEC 

$ABS  0 

0000 

INTBUE    / 

IRRAY  [128 

BYTE] 

0060 

OUTBUF    ARRAY  [126 

BYTE] 

0100 

RNGBUF    ; 

LRRAY  [256 

BYTE] 

(?200 

MCZBUF    i 

lEP.AY  [256 

BYTE] 

0300 

BUFADR    V 

/ORD 

0302 

BDESIZ    WORD 

0304 

IMTPTR 

WORD 

0306 

OUTPTR    WORD 

0308 

NXTPTR    WORD 

030A 

GETODT    WORD 

030C 

MCZPUT    WORD 

030E 

MCZGET    WORD 

0310 

MFL  ^GS    '/ 

/OED 

0312 

RETRY     :A 

i'ORD 

0314 

ADR  STR   WORD 

V      f 


234 


0316  DWN_ADR      WORD 

0318  START_ADR   WOP.D 

$SBCTION    LCAD_PRCC 
$EEL    C 


GLOBAL 
0000  FNAME    PROCEDURE 

of*  +r*v*  or  or  or  or  or  or  or  or  or  *i*  or  or  or  or  or  or  or  *»*or  or  or  or  *?v  or  or  or  *r  or  or  or  oj5  or  or  *r  or  or 

•A*  *.'* 

or  or 

*  FNAME:    RESETS    TWO   PTRS    TO    MCZBUF        * 

*  AND    CHECKS    FOR   FILENAME.  * 

*|C  or 

or  or  or  or  *r  or  or  or  or  or  *r  *r  »i*  or  or  or  or  or  or  or  or  or  or  or  or  or  or  or  or  or  or  or  tt  or  or  or  or  or  or    " 

MCZGET(R14) 

MCZPUT(R14)  !    RESET    BUFFER    ! 

R10,R12(#GETNXT) 

(?P10  !    SKIP    CMD    AEG    ! 

RL0,#'A' 

C.DUN 

RL0,#'Z'+1 

MC  ,DUN  !    1ST    CHR    IN    ( A  .  .  Z  )     ! 

R10,GETNXT(R12) 

Oh  10  !    SKIP    TO    NEXT    AEG    ! 

Z,N0_ADR  !    NO    NEXT    ARG    ! 

F10,GETADR(R12) 

@R10  !    GET   USER    SPECIFIED    I 

!    ADDRESS    ! 

R11.R3  !    SAVE   USER    *DR    ! 

ADR    STR(R14) ,R3 


ENTRY 

0000 

4DE8 

CLR 

0002 

030E 

0004 

4DF8 

CLR 

0006 

030C 

0003 

34CA 

LDA 

000A 

0000* 

000C 

1FA0 

CALL 

000F 

0A08 

CPB 

0010 

4141 

0012 

E711 

JR 

0014 

0A08 

CPB 

0016 

5B5B 

0018 

EF0E 

JF 

001A 

76CA 

LDA 

001C 

0000s" 

001E 

1FA0 

CALL 

0020 

E607 

JR 

0022 

76CA 

LD.a 

3024 

0000* 

0026 

1FA0 

CALL 

0028 

A13B 

LD 

002A 

6FE3 

LD 

002C 

0314 

002E 

9E08 

RET 
NO    ADR: 

0030 

210B 

LD 

0032 

FFFE 

0034 

9E08 

RET 
DUN: 

0036 

3D98 

CLR 

Rllt#%FFFE         !    SIGNAL    TO    USE    iMCZ    ! 
!    ADDRESS    ! 


R9 
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?2ze 

34CA 

LDA 

303A 

000?i* 

003C 

1EA8 

JP 

?03E 

FND  "FN  'ME 

003E 


003E  67E5 
0040  0310 
0042  E602 
0044  8D41 
0046  9E08 


0048  C242 
004A  CA3B 

004C  6EE2 
0G4E  0080 


0050 
0052 
0054 
0056 
0058 
00  5  A 
005C 
0  05E 
0060 

0062 
0064 
0066 
0068 
006A 
006C 

006E 
0070 


76E2 
0080 
A921 

76E1 
0000 
2100 
0040 
BB11 
0020 

76?1 
008? 
0101 
0080 
6FE1 
0306 

DFB6 
DFE7 


R10,R12(#EROR) 

yR10         !  ERROR,  RTN  TO  EXEC  ! 


GLOBAL 

CMDPAS  PROCEDURE 

*  * 

*  CMDPAS:  LOAD  CMD  PASSING  MECHANISM   * 

*  SENDS  'B;  '  PLUS  COMS  CMD     * 

*  LINE  TO  MCZ  AND  CKS  RESPONSES  FOP    * 

*  GOOD  Z80  PROGRAM  LOAD.  * 

*  REG  USE:   RETURN    NZ  IF  Z60  LOADED  * 

*  Z   IF  NOT         * 

ENTRY 

MFLAGS(R14) ,#ESC   !  CE  FOR  ESCAPE  ! 


BIT 

JR 

SETELG 
PET 


GCMD: 
LDB 
LDB 

LD 


LEA 

INC 
LDA 

LD 
LDIR 

LDA 
ADD 
LD 


CALR 
C«L? 


Z,GCMD 

7 


FH2,#'B' 

RL2, #'; ' 
CUTBUF(R14) ,R2 


R2,0UTBUF(R14 


!  LOAD  INIT  'BJ 
!  FOP  BPIE7  MODE  ! 


?2,#2 

R1,INTBUF(R14) 


R0,#%40 
@R2,OR1,R0 

Rl  ,0UTBUF(R14) 
Rl,#%80 

0UTPTR(R14) ,R1 


!    LD    CMD    IN    OUTBUF    ! 


CUTSTM 
SKIPLN 
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!  OUTPUT  BUFFER  ! 
!  SKIP  MCZ  ECHO  ! 


0072 

DFD4 

CALR 

MCZCOM 

0074 

0  4  09 

CPB 

aLi,#'B' 

?076 

4242 

0078 

EE02 

JR 

NZ.LDSTAT 

007  A 

DFEC 

CALR 

SKIPLN 

007C 

DFD9 

CALr 

MCZCOM 

!  WAIT  RESPONSE  ! 


!  SKIP  MCZ  ECHO  ! 
!  WMT  RESPONSE  ! 


!  VERIFY  LOAD  STATUS  ! 

LDST«T: 

007E  0A09  CPE       RL1,#'9'       !  TEST  LEGAL  ! 
0080  3939 

0082  E60E  JR        Z.RECACK       !  ACKNOWLEDGEMENTS  ! 

0064  0A09  CPB       RL1,#'0' 
0086  3030 

0088  E60B  JR        Z,RECACK       !  REC  GOOD  ACK  ! 

008A  0A09  CPF.       RL1,#'7' 
008C  3737 

008E  E608  JR        Z,RSCACK 

»  NO  ACKNOWLEDGEMENTS  RECEIVED  ! 

ERMSG: 

0090  DFD9  C^L^      RECMSG         !  C-ET  MCZ  MSG  ! 

0092  34CA  LDA       R10 , R12 (#SNDCHR ) 
0094  0000* 

0096  1FA0  CALL      3R10  !  SEND  TO  CONS  ! 

0098  0A08  CPB       RL0,#LF 
009A  0A0A 

009C  9E06  RET       Z  !  DONE  ! 

009E  F8F8  JR        ERMSG 

!  ACKNOWLEDGE  RECEIVED  ! 

RECACK: 

00A0  8D43  RESFLG  .  Z  !  RETURN  NZ  ! 

00A2  9E08  RET 
00M       END  CMDPAS 
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00A4 


GLOBAL 

SKPB     LAEEL 
SEIPLN   PROCEDURE 


*  SIIPLN:  SKIP  RECEIVED  LINE  FROM 

*  MCZJ  RETURN  FIRST  CHAR  OF 

*  NEXT  LINE. 


REG  USE:   RETURN 


RL1  =  1ST  CHR 
AND  NZ  IF  ESC 


#############  ^^sjt^^^s'.sjfc^^y^^^^t^cslss^^sfc^ej^:;^  j 


00A4  PFE3 
00  a  6  0  4 08 
00A8  0D0D 
00AA  EEFC 


ENTRY 
CALR 
CPB 

JR 


RECMSG 
EL0,#CR 

NZ.SKIPLN 


!  SKIP  OVER  LINE  ! 
!  THRU  CR,LF  ! 


00AC  2101 

00AE  3000 


00B0 
0CB2 
00E4 
00B6 
00B8 
00EA 
00BC 
00BE 


61E0 
030F 
4EE0 
030C 
EE03 
AB10 
EEF9 
9E06 


SKPB: 
LD 


Rl  ,#%3000 


!  DELAY  FACTOF  ! 


!  MAIN  LOOP  FOR  RECEIVING  CHAR  ! 
LOOP1: 

R0,MCZGET(R14) 


LD 
CP 

JR 

DEC 
JR 

RET 


R0,MCZPUT(P14) 

NZ.RECHR 
Rl,#l 
NZ  .LOOP1 
Z 


!  TEST  FOR  REC  CHR 

!  YES ! 

!  NO,  WAIT  AWHILE   ! 

!  FORCED  EOL  ! 


00C0  DFFB 
00C2  0A09 
00C4  2020 
30C6  9E0D 
00C8  DFF5 
00CA  E8F0 
00CC 


RECHR: 
CALR 
CPB 

RET 
CALR 
JR 
END  SKIPLN 


MCZCOM 
RL1,#' 

PL 

RECMSG 

SKPB 


!  CK  1ST=PRNT  CER  ! 


238 


00CC  MCZCOM    PROCEDURE 

?*■'*•  i*f  Sfe  "'*  -'•*  -1'  ^  ***  V'  *'*  *•**  -'*  »*'  »'-  -,'•*  -*'  -1*  *-•-  -'»  -•'  ~1*  i1*  »**  •*'*  •.'*  J*  J>  «JU  0«  O*  «b  »1«  »',  vi,  kb  >>''  »•-  *'-  *.'-  tla 
-,t  -,*.?,•«  *,»  r(+  *t+*fi  -i-  5,**0  ^,*  *r  *,-.  *|<*7p  n**p  *,«.  *,-.  -r  -.- V  -,-  .-,.  -|»  -,%  -,:  ',*  3»»  -,»  *»-  £,w,*3,<  ?\i  s,»  5,J  #,0"  J,I 

*  MCZCOM:    LOOPS    WAITIMG    FOP.    PECEIVS        * 

*  CHAR    FROM    MCZ    BY    SEEING    I?      * 

*  MCZBUF    GETS    CHAP.    DOES  * 

*  ADVANCE    POINTER.  * 

a*  -i- 

■v  *■,* 

*  REG    USE:    RETURN      RL1    =    CHR  * 

***  3*i  5*£  **tf  *'*  **f  V*  •*•  ""J*  »'*  V*  ***  »•*  **«*  »'*  *'*  ***  *■'*  ^V  »V  *'*  «i'-  ***  *M  *'*  **"  *'*  »'*  *J*  *'*■  *'•»  s'*  »**  ***  *•*  «***  **»  ***  *,«  »'*  ■ 

i*  *i*  *i»  »(*  *r*  i*  *r  n*  t  'i"  *!*  »i-  *r  t*  *i»  t  *i*  *.»  *r  *r  *r  ***  *»*  i*  *i*  *P  *r-  *■.*  *»»  »i*  *i*  v  »i»  *i*  n*  *»*  n*  *>*  *»*  *»*  T 

ENTRY 
00CC    61E0  LD  R0,MCZGET(R14)  !    CHECK   MCZBUE    ! 

00CE    030E 

00D0    4BE0  CP  R0,MCZPUT(R14)  !    POINTERS     ! 

00D2    030C 

00D4    E6E"P  JR  Z, MCZCOM  !    WAIT ! 

C0D6    34CA  LD»  R10, R12 (#GMCZAD ) 

00D8    0000* 

00DA    1FA0  CALL  3R10  !    GET    CHAR    FROM    BUF    ! 

^0DC    2029  LDB  RL1.GR2 

00DE    9E08  RET 

00E0  END    MCZCOM 

00E0  ^ECMSG    PROCEDURE 

*  RECMSG:    LOOPS    WAITING   FOR    REC    CHR        * 

*  FPOM    MCZ.    GETS    CHAP    AND  * 

*  DO    NOT    ADVANCE    3UF    PTR.  * 

*  REG   USE:      RETURNS        RL0   =    CHP  * 

ENTRY 

00E0    61E0  LD  R0,MCZGET(R14) 

00E2    030E 

00E4    4EE0  CP  R0,MCZPUT(P14)  2    CK    FOR    PEC    ! 

00E6    030C 

00E8    F6FB  JR  Z.    RECMSG  !    WAIT ! 

00EA    34CA  LDA  P10 , R12 (#GMCZAD ) 

00EC    0000* 

00EE    1FA0  CALL  GR10  !    GET    1ST    CHAR    ! 

00F0    6FE0  LD  MCZGET(R14) fR0         !    PESTOPE   PTR    ! 

00F2    030E 

C0F4   2028  LDB  RL0, GR2  !    PTN    CHAR    ! 

00F6   9E08  RET 

00F?  END    RECMSG 
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'0F8 


GLOBAL 

OUTSTM  LABEL 

OUTLNE  PROCEDURE 

«-'-  <■''  •.'*  o»  **•»  *.'»  »••■  »''  o>«  »■-  »'-  »'*  V*  *■'*  V*  *•■*  -1*  V*  *■'*  •%'*  -  -  %■»  ■»•*  »'*  *•*  »'*  *■'•*  *■■  -  *•'+  *■'*  *•-  *•*  V*  *■'*  "'■»  »•-  »**  »'*  *■•'  *■<• 
*^*  *t*  *i*  *%+  *»*  *»*  i*  ^*  np  *c"  *i*  *■»■*  *»*  ^t*  *i*  HP  *t*  *t*  ^*  *i*  ***  *i*  *t*  *i*  *»"*  *i*  *(■*  *t**  *i*  ^r  ^t*  'i*  *»*  *i*  *!■  *»*  *i*  *v*  *i*  *>* 


00FS  61E2 
00EA  0306 
C0FC  0C25 
00FE  0D0D 
0100  69E0 
0102    03*6 


*  OUTLNE:    OUTPUTS    A    LINE   OF    CHAR    FROM    * 

*  OUTBUF    TO    NCZ    WITH    CR   AT  * 

*  END.  * 

*  * 

*  OUTSTM:    OUTPUTS    A    LINE   OF    CHAR    W/CR    * 

*  * 

-'•*  ***  -*"  *'*  *■*  *>'*  »«-*'.,'-  *»»  »'-  aJb  »'*  *J«  *l«  *»*  V  J 1-  <J«  *l*  *'*  O.  »'*  %t*  «.'-  «,**  V  «J-  -•-  -''  ■*•-  »'*  *'*  ***  -*'  ■»•-  *■*»  J'  «*<•     I 

»t*  ■'1**1*  'i*  »!*  f**r»  *p  •Y**r  *r  *.-  *»*  *,»»t*  i"  nr  •vv  *i*  i-  'i****  ****¥•  *f  *r  '.*  -i*  *r  »i*  *r  *i»*r  *i*  -i-3?-  *r  *r  -r    ? 

ENTRY 

LD  R2,0UTPTR(E14) 

LDB  @R2,#CR  ISTORE    CR    IN    3UF    ! 

INC  OUTPTR(R14),#l  !    INC    PTR    ! 


0104    76F1 
0106    0060 


0108 
010A 
010C 
010E 
0110 
0112 
0114 
0116 
0118 


2018 

A910 

34CA 

0000: 

1FA0 

E603 

4BE1 

0306 

E7F7 


!    NO    CF    ENTRY    POINT    ! 
OUTSTM: 

LDA  K1,0UTBUF(R14) 


!    MAIN    LOOP    ! 
OVRAGN: 

LDB 
INC 

LDA 


RL0.0R1 

Rl 

R10,R12{#SNDMCZ ) 


CALL 

JR 

CP 

JR 


0R10 

Z, FINIS 

RlfOUTPTR(R14) 


!    SND    CHR    TO    MCZ    ! 


C, OVRAGN 


!    CK    IF   BUF    SMPTY    ! 


01 1A 

76E2 

LDA 

011C 

0080 

011E 

6FE2 

LD 

0120 

0306 

0122 

2100 

LD 

0124 

0040 

0126 

AE00 

DEC 

0128 

4DF5 

LD 

012A 

0080 

012C 

2020 

012E 

76F2 

LDA 

0130 

0080 

!    FINISHED,    RESET    0UTPT?(R14)    AND   BLANK    OUTBUF    ! 
FINIS: 

R2,OUTBUF:R14)    !    RESET    POINTER    ! 

OUTPTP(Rli) ,  R2 

R0,#CUTSIZ/2 

R0,#1  !    SET    COUNT    ! 

0UTBUF(R14) ,*'       '         !    LOAD    COUNT    ! 

R2,0UTBUF(R14) 
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0132    ai21 

0134  A911 
C136    RB21 

0135  0010 
013A    9E08 


01 3C 


013C 
013E 

0140 
0142 


C337 
F603 

C839 
E801 


0144    C830 


0146 
0148 
014A 
014C 
014E 
0150 
0152 
0154 
0156 
0158 
015* 


6EE8 
0080 
76ED 
0090 
P.9DC 
6EED 
0306 
D02E 
D05A 
9E08 


LD 
INC 
LDI  - 

RFT 
END    OUTLNE 


Rl  ,R2 

Rl    #2 

G>:  lfG>R2,P0 


!    CLR    BUFFER    ! 


ABORTM 
GODPAK 

P*DP*K 


LABEL 
LABEL 
PROCEDURE 


»vu  \'f  **#  »i*  »**  »'*  .JU  ^>*  *ju  «,•*  -**  <ju  «V  ■*'*  -V  ■*'*  V*  »V  *'-  »'»  -'*  *"-  «-■-  "■'"  ***  -■■■  «■**  *»'*  V*  -v  V*  »'«•  ***  ***  *'*  "■*  *//  V-  "'-'  *'* 
*t~  nr  ^*  *i*  ***  "i*  *i*  ^*  v  *r*  ^^  t*  *t*  *i*  *^r  **"*  o*  ^*  *»■*  *v  n*  T  *i*  *i"  ***  *i~  *r*  *f*  *v*  *i*  'i*"  *i*  *t*  *r*  t*  ***  *p  *>*  ***  *v* 


*  BADPII: 

*  a.BORTM: 
# 

*  GODPAK: 


SENDS    RESEND    SIGNAL    ( '7  '  )  * 

TO    MCZ    FOR   EAD    CKSUM   OP    KZC  * 

NON-ASCII    CHR.  * 

SENDS    ABORT    SIGNAL    ('9')  * 
WHEN    USER    SELECTED. 

SENDS    ACK    SIGNAL    ('0')    FOR  * 

RECEIPT    OF   GOOD    PACKET.  * 


$ #* £# ## s^s;;sis # ##  #*  *sje ##  $  #*# ##  ##  *# #**###  *** * #  I 


ENTRY 

LDB 

JR 
ABORTM: 

LDB 

JR 
GODPAK: 

LDB 
OUTALL: 

LDB 

LDA 

INC 
LD 

CAL" 
CALR 
PTPT 

END    BADPAK 


RL0,#'7 
OUTALL 

kL0,#'9 
OUTALL 


!    LD    RESEND    SIG    ! 
!    LD    ABORT    SIG    ! 


RL0,#'0'  !    LD   REC    OK    SIG    ! 

CUT3UFU14)  ,RL0 
R13f0UTBUE(R14) 

R13,#l 

0UTPTR(R14),R13 


OUTLNE 
SKIPLN 


!    SEND   MCZ    SYSTEM    ! 
!    SKIP    ECHO    ! 
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GLOEAL 
015A  GETACK         PROCEDURE 

IM*  *!*  V*  »'*  Ms  »'*  *v  *'*  w  ***  *•*  •***  «••*  ***  v*  »■'  v—  y*  V"  *■■*  «■•*  *•*  *•*  »•*  *•*  »«*  *•*  *»*  ku  .■*>  v*  »**  *•*•.<*  **>  »■*  *'»•  »»*  »«*  wu 
vpV'i*  *i»  «v  *y»  i-»  ^  -r  i*  *■»»  *i*  -,»  ^r-  »,■»  *(•  Jr»  n*  *i*  *v  *«*  *p  *i*  *p  *i*  nr  *i*  1*  *r*  2p  *i*  *i*  -?  *fl»  «v  -»c  *f  *r>  *i* 

*  GETACK:    RECEIVE   AND    INTERPRET    ACK         * 

*  FROM    MCZ.    GOOD    ACK    =    '0'  * 

*  BAD      ACK    =    '7' 

*  ABORT  =    '9'  * 

*  REG    USE:       RETURN      Z.NC    IF    GOOD    ACX      * 

*  NZ.NC    IF    3AD   ACK      * 

*  NZ,C    IF    ABORT  * 

V  ^ 

«A«  •.'*  «V  -'*  -''  *"*  ***  *'-   -*'  »'-  *'"  -'*  *'*  "'  -■  *'*  -1-  -'*  *'•"  *■'*  * **  -''  »'»  *'*  V"  *'<  -'*  -'*  -''  ***■  »'*  »<*  *•'-  "-1*  *■'*  -'-  «•'(•  -1*  **>  -'*  -'-    • 

»,-   »,■»  *-,K   *,•  »,«  *•,*  »,»  »   .   *,*  »,•     *,-  «.,»  *■,»    J,i  *,»  *,-    *,»   7|*  »,»  -,»  rp  *^«.  .-,■•   *•(■*  'I*   *,*  *i»  *i*  *i*  *|*  »i      *l*  'i*  *i*  *l"*    *|*  *(*   *  i*  *»"*  *  i"     I 

ENTRY 

015A    D048  CALR  MCZCOM  !    GST    CHR    ! 

015C    0A09  CP3  RL1,#'0'  !    CK    FOR    ACK    ! 

015E   3030 

0160    EE04  JF  NZ,NACK  !    NO ! 

0162    D060  CALR  SKIPLN  !    YES,    REC    ACK    ! 

0164    8D41  SETFLG  Z 

0166   8D83  RFSFLG  C 

0168    9E08  RET 


'  r\    ' 


!  CK    FCR      7      AND      9      NON-ACKNOWLEDGEMENTS    ! 

NACK: 

016A    0A09  CPE  RL1,#'7'  !    CK    FOR   RES  END    ! 

016C    3737 

016E    EE04  JR  NZ.ABRT  !    NO....    ! 

0170    D067  CALF  SKIPLN 

0172    8D43  RESFLG         Z 

C174    8D83  RESFLG         C 

0176    9E08  RET 

!  CHECK    FOF    ABORT    ! 

A.BRT : 

0178    0A09  CPB  RL1,#'9' 

017A    3939 

017C    E602  JR  Z.ENDIT  !    YES,    ABORT...     ! 

017E   D050  CALF.  RSCMSG  !    GET    ANOTHER    CHR    ! 

0180    E8EC  JR  GETACK  !    TRY    AGAIN ! 

ENDIT: 
0182    D070  CALR  SKIPLN 

0184    8D43  RESFLG         Z 

0186   8D81  SETFLG         C 

0188    9E08  RET 

018A  END   GETACK 
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G18A  LINRCT    PROCEDURE 

?»•*  %•*  *>*  O*  ».'#  •.'»  »'-  *f+  **.«  ti*  »'*  -,'rf  *',#  »'*  «-•.»  »".  »•*  kb  »•»  ***  fc<*  V*  >l*  »'*  *'*  *'*%'#  *'*  »'»  n'*  O*  V*  V*  ^*  V*  ***  **#  *'*  V*  *•* 
1*  T"!*  n*  n»  n^n*  *P  *P  *P  *r  •pn*  *i**#»  n*  *r  *r*i*  n*  «v  *i**r  *v  *r  **•*(*  *»■  t>  n*  #i*  *r  Jf**r  n*  "r  *y*  *»**»*  i* 

•JU  *•* 

i*  *%* 

*  LINPCT:    RECEIVES    LINE   OF    CH*R   FROM      * 

*  MCZ    AFTER    RECEIPT    OF    '/  ' ,         * 

*  AND   STORES    IN    INTBUF,    ADDING* 

*  CE    AT    END    AND    FILTFRING    OUT    * 

*  CONTROL    CHARACTERS.     (<20H)       * 

*  (TRUNCATES    AFTER    80    CHAR)         * 
t-  •>- 

!  WAIT    FOR  ASCII    /    ! 

018A    D056             CALR  RECMSG 

018C    0A03             CPE  RL0,#V 
019F   2F2F 

0190    EEFC             JR  NZ, LINRCT           !    WAIT    ! 

!  BEGIN    STORING   CHARACTERS    ! 

0192    76F4             LDA  R4, INT3UF(R14 ) 
0194    0000 

0196    CE50             LDE  RL3,#80  !SET    LINE   LENGTH    ! 

!  STORE    CHAR    IN    INTBUF    ! 

LOPSTR: 

0198    D05D             CALR  RECMSG  !    GET    CHAR    ! 

C19A    2E48             LD3  01,4, RL0  !    STORE    ! 

019C    0A08             CP3  RL0,#CR  !    CK    FOR    END    ! 
019E    0D0D 

01«0    FE02             JR  NZ,SKPS0M  !    GOT    CHAR..     ! 

01A2    D07C             CALR  SKPB 
01A4    9E09             RET 

'.CONTROL    CHAR    FILTERED    AND    DEC    LINE    COUNTER    ! 
SKPSOM: 


01A6   0A08 

CPB 

RL0,# 

01A8   2020 

01* A    E7F6 

JR 

C, LOPSTR 

01AC    A940 

INC 

R4,#l 

!    GOOD    CHAR    ! 

01  a E   F30C 

D3JNZ 

RL3, LOPSTR 

!    DEC    COUNT    ! 

01B0 

D069 

CALR 

01E2 

0A08 

CPE 

01B4 

0D0D 

eis6 

FEFC 

JR 

01 38 

76ED 

LDA 

01EA 

0000 

013C 

010D 

ADD 

01BE 

0050 

01C0 

2Er8 

LT3 

.'TRUNCATE,    TOO    MANY    CHAR    1 
LOPOVR: 

RECMSG 

RL0,#CR  !    LOOK    FOR    CR    ! 

NZ,L0PCVR 
R13,INTBUF(R14) 

R13,#80 
0R13,RL0 
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01C2    9E08 
01C4 


R  "ET 
END    LINRCT 


01C4 


01C4  A03C 
eiC6   DFD9 

01C8  61E2 
01CA  0316 
01CC  8D24 
01CE  EE02 
011)0  6FE1 
01D2    0316 


UNPACK        PROCEDURE 

?-'■*  ***  »•*  »>'  ■.'*  *p*>  «JU  v*  »'**■•*  ■»'"•  V'  »'»  V*  V*  V'  V*  V'  ***  «•'■*  •J*  *'«■  V'  »'*  "J*  ■»'•  V'  »■'-  V'  «^**  *V  V*  V'  *"•  *■>  *■'*  «''  -J-  »**  »*- 
*)"»  'I*  »f»  *p  *|»  »,1^^  *f»  #^»  w^-.  »^»  *,»  *,«  J('»  *,-»  rf,»  -,»  ^i»  *(»  ?(■■•  ff.»,»  J,»  *,*  *,%  »,»  -,*  *,»  •■,■>  *,«  ^  J,-.  J,»  *■,»  ^t  #f*  »,«  -p.  »,»  -,-. 

*  * 

*  UNPACK:    UNPACKS    RECEIVED    PACKETS  * 

*  FROM    MCZ    IN    INT3UE    AND  * 

*  LOADS    IN    SPECIFIED    MEMORY  * 

*  AREA.    ASCII    CHAR    A  RE    CON-  * 

*  VESTED    TO   HEX    VALUES .  * 

*  REG   USE:    INPUT      RH3   =    #EYTE   DATA  * 

ENTRY 

LP3  RL4.RH3  !    SAVE   COUNT    ! 

CAL~-  CONVAD  !    CONV    START    ADR    ! 

LD 

TEST 

JR 

LD 

NOT   FIRST: 


R2,DWN_ADR(R14) 

R2 

NZ, MOT  FIRST 

EWN_ADRvR14) ,R1 


!    CHECK    FOR    USER    ENTERED    ADDR    FOR   LOAD    ! 


01D4  0B0B 
01D6  FFFE 
01E8  F601 
01D«     »1B1 


01DC  76E2 
01DE  T0e0 
01E0    a 92? 


CP 

JR 
LD 

USE_MCZADR 
LDA 

INC 


Ellt#%FFFE 

Z,USE_MCZADR 

R1.R11  !    USER    SPECIFIED    ! 


R2,INT3UF(R14 
R2,#8 


01F2  DFFS 
31E4  2E18 
01E6  A910 
01F8   FC04 


CANDS: 
CALR 
LDB 
INC 
DBJNZ 


TPNHEX 
(?R1,RL0 

Rl,#l 
RL4, CANDS 


!    CONVERT    2-ASCII    CHR    ! 
!    STORE    IN   MEM    ! 

!    CONV    AND   STORE    «LL    ! 


01EA  0B0B 
01  EC  FFFE 
01EE  E601 
01F0    »11B 


!    UPDATE   USER    SPECIFIED    ADDRESS    ! 
CP  R11,#%FFFE 

JR  Z,NO_UPDATE         !    USE   MCZ    ADR    ! 

LD  R11.R1  !    UPDATE   USER    ADR    ! 
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NO   UPD  (,TE: 
01F2    9E09  RET 

01F4  END   UNPACK 

01F4  TRNHEX    PROCEDURE 

J  *  *  #  $ $  *  5*  $  *  *  #  # $  ;;;  #  ;;;  #  $  $  #  $  $  $  $  $  £  *  :;;  #  $  $  $  #  $  $  <■-  ^  $  ;•;  ;;i 

*  * 

*  TRNHEX:    CONVERTS    TWO    ASCII    CHAR    FLM    * 

*  INTBUE   TO    TWO    4-31 T   HEX    #        * 

*  AND    ADD    TO    CKSUM.  * 

*  * 

*  REG   USE:    INPUT      R2  =    PTR   TO    1ST    CER    * 

*  RL3=    CKSUM    ACCUM  * 

*  RETURN    R2   =   UPDATE    PTR  * 

*  RL3=   UPTATED   ACCUM      * 

*  RL0=    HEX    VALUE  * 

*  AND    C    IF    NON-ASCII       * 

*  NC    IF    ALL   GOOD        * 

!    CONVERT    1ST    CHR    ! 

!    ADD    TO    CKSUM    ! 

!    MOVE    TO    H    NIBBLE    ! 

!    CONVERT    2ND    CHR    ! 
!    COMBINE    NIBBLES    ! 


EN 

TRY 

01F4 

DFF6 

C.ALR 

ATOHEX 

01F6 

9E07 

RET 

C 

01F8 

P08B 

ADDB 

RL3.RL0 

01FA 

B309 

SLA 

R0,#12 

01FC 

000C 

01FE 

DFFB 

CALR 

ATOHEX 

0200 

9E07 

RET 

C 

0202 

808B 

ADDB 

RL3.RL0 

0204 

8408 

ORB 

RL0.RH0 

0206 

3D83 

RESFLG 

C 

0208 

9E08 

RET 

020A 

END    TRNHEX 

020A  ATOHEX    PROCEDURE ^ 

f  ?i*  *i»  *i*  3JC  ^C  i,-.  5JC  Xfi  -|C  i,i  *^*  5§«  l(p  ?t"  *r*  *<*  *i*  'p  n*  *?  ^*  *|*  *r*  *»*  *P  *i*  *5*  *P  *F*  *i*  o*  *i*  o*  t^  t*  *P  *v  *V*  ^r*  ^* 

*  ATOHEX:    CONVERTS    ONE    ASCII    CHAR    TO  * 

*  4-BIT   HEX    NIBBLE.  * 

*  # 

*  REG   USE:    INPUT      R2  =   PTR    TO    CHR  * 

*  RETURN    R2   =    PTR    +1  * 

*  RL0=   HEX    NIBBLE  * 

ENTRY 
020/    2028  LDB  RL0.OR2 

020C    A920  INC  R2,#l  !    INC    PTR    ! 

020E   34CA  LDA  R10 ,R12 (#CONVERT ) 
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0210    0000* 
3212    1FA3 

0214    9E08 
0216 

0216 


CALL 

RET 
3MD   ATPREX 


OR  10 


CONVAD    PROCEDURE 

!»l*  *'*  OU  JU  «,'..  **>  ■v'»  »•*  «J>  »'.»  yjj    *•*  «lj.  »U  »'*  1 
-t»  *i*  V  'i*  ?i-  'i*  *i*  i*  n*  *r  *t-  "f  *."  'i"**  • 


-  <-  ,'-*■--•-. 


■  »,»  *,-.  -,..  #|* 


•  .1*  «JU  «.t-  «!•  JL  .J*  *i.  ,i<  *i.  »i.  j,  o,  »'. 

—  -i-  *r  'i*  -i»  *i*  *i*  *r  -r  *r  *»*  *P 


*  CONVAD:    CONVERTS    STARTIMG    ADDRESS  * 

*  OF    PACKET    DATA   TO    HEX    #.  * 

*  # 

*  REG    USE:    RETURN         Rl    =    ADDRESS (HEX)  * 
ENTRY 


!    STORE    1ST    BYTE    ! 
!    STORE    2ND    BYTE    ! 


0216 

76E2 

LDA 

R2,INT 

021B 

000(71 

021A 

D014: 

CAL? 

TRNHEX 

021C 

A081 

LDB 

RH1.RL0 

021F 

D016 

CALR 

TRNHEX 

0220 

A089 

LDB 

RL1.RL0 

0222 

9E08 

RET 

0224 

END    CONVAD 

0224 


CHKPAK         PROCEDURE 

!»'-  »i*  j«  «,',.  ki>  *jl  >jf  y »  »»-  v*-  <dl*  -.**  *u»  ■  ••  v**  x' -  »v  *•-*  V*  -''  t^V'  »'-*  »'*  »'*  -'*  *'■*  ••'*  ''*  V*  «■■*  -*'  *>V  -•'*  *V  »'*  «■'»  *''  »**  *•- 
T  *r***r  *-*  *v  -V" *?  *r  *r  *P  *«*  *i*«v  *r**r  *v 16  -n*  n**i*  a*  ****»■  *v*v  *i*-v  *»*  *r»  ■!•  n*  -r  *i* *•*  I*  ■¥•  ***  *«**»•*  «v 


CHKPAK:    CK   RECEIVED   MCZ    PAC    CKSUM 
AGAINST   ACCUMULATED    HEX 
VALUE    CKSUM    AFTER    ASCII-TO-   1 
HEX   CONVERSION.  * 


REG    USE:       RETURN      RH3   =    BYTE    COUNT      * 

AND    C    IF   BAD    OR         * 
NON-ASCII.  * 


#^e*j!s****4:^!*:;j^^#^4:^:^-;*5)c-ss!s^5t:^-«#s!;^*-:^^^^:^-;^  [ 


ENTRY 

0224    76F2 

LDA 

R2,INTBUF(R14 

0226   0000 

0228    C303 

LDB 

RH3,#3 

022A    DFF9 

CALR 

CHKSUM 

! 

CK    1ST    CKSUM    ! 

022C    9E0? 

RET 

C 

J 

BAD    CK    ! 

022E    8C34 

TESTS 

RH3 

0230    9E06 

RET 

Z 

J 

NO   DATA    ! 

0232    93F3 

PUSH 

(i>R15,R3 

J 

SAVE   BYTE    COUNT    ! 

0234    DFFE 

CALR 

CHKSUM 

! 

CK    2ND    CKSUM    ! 

0236   97F3 

POP 

R3.GR15 

0238    9F08 

RET 

023A 

END    CHKPAK 

246 


023^  CHKSUM        PROCEDURE 

(-*■*  **£  ***  ***  «^*  *V  ***  »f*  ***  *'*  ■**  ***  »*■*  »'*  »'<»  «•'-  *'"  »**  O*  v1*  .»*  »»-•  »*■  5**  **?  **•  *'*  »•*  »'*  ■***  ***  »**  *.'*  ***  ***■  **-  »•*  »»,  *'»  O* 

*  * 

*  CHKSUM:    CONVERTS    ALL    EEC    ASCII    CHR  * 

*  IN    PAC    TO    HEX    AND    AC  CUM    NEW  * 

*  CKSUM.    COMPARE    CKSUMS    AND  * 

*  REPORT   DIFFERENCES.  * 

*  REG    USE:    INPUT      R2   =    PTR    TO    PAC  * 

*  RH3=    #    CHR    PAIRS  * 
RETURN    RH3=    BYTE    COUNT  * 

RL3=    NEW    CKSUM  * 

RH3=    REC    CKSUM  * 

AND    C    IF    EAD    OR  * 

NON-ASCII    REC  * 


!    RESET    CKSUM    ! 
!    CONVERT    PAIRS     ! 


* 

* 

* 

* 

* 

•*  »t#  *l»  <Jw  J*  Jk*  *J<  »l*  fc»>  *l*  »■*  »•>  *t*  «."—  V*  »v  »** 
i»*Tp  *,«•  ■•,%  *|»  *|*  »)■»  *,»  rfp  ^»  *■,»«.,>  «>|«  *,»  rf|,»  «|«  *|» 

ENTRY 

*23* 

8CB8 

CLRB 

RL3 

023C 

D025 

AB 

:CALR 

TRNHEX 

023E 

pV07 

RET 

C 

0240 

F3^3 

DBJNZ 

RH3,  J»B 

0242 

A  08  3 

LDB 

RH3,RL0 

0244 

93F3 

PUSH 

0R15.R3 

C246 

D02A 

C&LB 

TPNHEX 

0248 

97F3 

POP 

R3,l«R15 

024A 

9E07 

RET 

C 

024C 

8AB8 

CPB 

RL0,RL3 

024E 

9F06 

RET 

Z 

0250 

8D81 

SETFLG 

C 

0252 

9F08 

RET 

0254 

END    CHKSUM 

!    CONTINUE 


!    SAVE    BYTE    CNT    ! 
!    CONVERT    NEXT    TWO    ! 


!    COMPARE    CKSUMS    ! 
!    GOOD    CK. .  .     ! 

!    BAD    CKSUM    ! 
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3254 


0254 
0256 

0253 
025A 
025C 

025E 
0260 

0262 
0264 
0266 
0266 
026A 
026C 
0265 
0270 
0272 
0274 
0276 
0278 
027A 
027C 
027F 


4DF8 
0316 
D12D 
65E4 
0310 

Dill 
9E06 

D06D 
76E2 
0000 
2028 
0A08 
2F2F 
?E10 
76E1 
0080 
2103 
0020 
BS21 
0310 
76E1 
0080 


GLOBAL 

LOADFL    PROCEDURE 

i  *i-  "i-  *»*  n*  'i-  *v  't»  "i"  'i*  **  *i»  *i-  *i*  •;■'  *%■+  'i-  *i»  t  *»»  i-  -i*  *,»  *»*  ',-  ^*  *»■»  *i-  *t-  "f"  *»■•  t  «v  ••,*  -,»  *i»  *v  -v»  -,-  *,-  *■,<■ 

*  LCADFL:    RECEIVES    PACKET    FROM   MCZ    IN  * 

*  FOLLOWING    FORMAT:  * 

*  # 

*  <ADRXCNTXCKS1XDTA>.  .  .<DTAXCKS2>  * 


ADR   =   START    ASR    IN    Z800C    MEM 
CNT    =   n    DATA    WORDS 
CKS1  =    CKSUM   OF    <ADR>    +    <CNT> 
<DTA>.  . XDTA>    =   30   DATA    WORDS 
CKS2=   CKSUM   OF    DATA   HEX    VALUES 

PROCEDURE   VERIFIES    CKSUMS    BEFORE 
STORING    DATA    IN    Z8000    MEM.    PACKETS 
ARE   ACK    FOR    WITH:    '0' 

'7' 

'9' 
IF    REC    '//'    FROM    MCZ  , 


* 


=   GOOD 
=    RESEND 
=    ABORT 
ECEOS    WHAT 


tilC    NEXT    TO    CONSOLE    AND    ABORT. 


n*  nr *<*  *v  *»*  *i*  *&  ***  *»■•  *r  i*  *i» *v  -i* *v  *rn*  *r  i*  -v  *c  *n ***  *r  *%-  *\- *p  «Y»  t*  *p  *i»  -V  3jt  *,■•  ^*  *,»  -,-  #,»  ?,-  »,•»   I 


ENTRY 
CLR 

CALR 
SET 


CALR 
RET 
PECLOP: 

CALR 
LDA 

LDB 
CPB 

JR 
LDA 

LD 

LDIR 

LDA 


DWN_ADR(R14)  !    SET    ENTRY    ADR    BLOCK    ! 

FNAME  !    CK    FILENAME    ! 

MFLAGS(R14) ,#LDMDE    ISIGNAL    LOAD    IN    ! 


CMDPAS 
Z 


1PRCGRESS! 
!    SND    CMD    TO    MCZ    ! 
!    Z80    PROG    NO    LOAD    ! 


LINRCT  !    GET    PACKET    ! 

R2,lNT3UFfR14) 


RL0,0R2 

RL0,#V 


!    CK    FOR    '//'    ! 


NZ.CONTIN  !NO,    CONTINUE...! 

Rl,OUTBUF(R14)  !YES,! 

R3,#%20 

0R1,(?R2,R3         1ERROR    MSG    SETUP    ! 
Rl tCUTBUF(R14) 
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026?  ^101 
0282  0020 
7284  6FE1 
0286  0306 

0288  34CA 
028A  0000* 

028C  1FA0 
028E  9E08 


3290 
0292 

0294 
0296 
0298 
029A 
029C 


0292 
02  A  0 


02A2 

02A4 
02A6 
02  • 8 

02AA 
02AC 
02  A  E 
02P0 
02B2 


02P4 
02B6 
02B8 
02EA 
02EC 
02BE 
02C0 
02C2 
02  C4 
02C6 
02C8 
02CA 
02CC 


67E5 
0310 

EE34 
D03A 
E"5'02 
D0B0 

E8E2 


8CE8 
8139 


8C34 
EE28 
D0B2 
54E0 
0000 
76ED 
0080 
010D 
000C 


0B09 

AAAA 

E61D 

0B0B 

FFFE 

E6C8 

6EED 

0306 

61E5 

0314 

76CA 

0000* 

1EA0 


ADD 
LT 

LDA 

CALL 
RET 


CONTIN: 
BIT 

JR 

CAL? 
JR 
CAL" 
J  P. 


!  CHECK 

GDLD  : 
CLRB 
ADD 


TESTB 
JF 

CALR 
LDL 

LDA 

ADD 


1-1  ,#%20 

CUTPTR(R14) ,R1  !SET  OUTPTR  ! 

R10,R12;#PBUFUC) 
GR10 

MFLAGS(R14) ,#SSC    !  CK  FOR  ABORT  ! 


NZ,A3T 
CPKPAK 
NC  ,GPLD 
BADPAK 
RECLOP 


YES,  ABORT.. 
CK  CKSUMS  ! 
GOOD  LOAD  ! 
SEND  MON-ACK 
TRY  AGAIN  ! 


FOR  LAST  PACKET  AND  PRINT  <ENT  ADR>  ! 


RL3 
P8.R3 


RH3 

NZ.5TOR 

GODPAK 


ACCUM    NUMBER    BYTES     ! 
OF    TRANSFER    ! 

!    CK    COUNT=0    ! 

!    OK,    BEGIN    STP    ! 

!    SEND    GOOD    ACK    ! 


RR0,INTBUF(R14) 
R13,OUTBUF'R14) 
R13,#%0C 


!    CHECK   FOR    USER    SPECIFIED    *DDfi    ! 
CP  R9,#%AAAA 

JR  Z,SND_LOAD         !    NO    ECHO   TO    CONS    ! 

C?  R11,#%FFFE         !    CK    FOP   LOAD    ADP    I 

JR  Z.SAME    ADR  !    USE    MCZ    ADR    ! 

LD  0UTPTRrR14) ,R13       !    SET    OUTEUF    ADP    ! 

LD  R5,ADR_STR(R14)    !    GET   USER    ADR    ! 

LDA  R10,CONVW(R12) 

CALL  GR10  !    CONVERT    TO    ASCII    AND    ! 

!    AND    STORE    IN    CUTBUF    ! 
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02CE 

E801 

JR 

FIN_BUF 

SAME  A.DR: 

02D0 

1DD0 

LDL 
FIN  BUF: 

OR13.RR0 

02D2 

3402 

LDAP 

R2.EMTADR     !LOAD  ENTRY  LABEL! 

02D4 

0040 

02  re 

76E1 

LDA 

R1,0UT3UF(R14) 

02D8 

0080 

02DA 

2100 

LD 

R0,#6 

02TC 

0006 

02DE 

*B21 

LDIR 

@Elf0R2fR0 

02E0 

0010 

02E2 

76ED 

LDA 

R13,0UTBUF(R14) 

02E4 

0080 

02E6 

010D 

ADD 

R13,#%10 

02E8 

0010 

02F* 

6FED 

LD 

0UTPTR(R14) ,R13 

02EC 

0306 

02EE 

34CA 

LDA 

R10,R12(#?RNTBF) 

02F? 

0000* 

02F2 

1EA0 

CALL 
END  LOAD: 

GR10          !  PRINT  MESSAGE  ! 

02F4 

9E08 

RET 
STOR: 

02F6 

D071 

CALR 

CC-NVAD 

02F8 

D0DB 

CALK 

GODPAK        !  SEND  ACK  ! 

02FA 

D09C 

CALR 

UNPACK        !  UNPACK  AND  STORE  ! 

02FC 

E8B2 

JR 
aBT: 

RECLOP        !  CONTINUE ! 

02FE 

3402 

LDAR 

R2.EMSG 

0300 

000A 

0302 

34  C  A 

LDA 

R10,R12(#SNDMSG) 

0304 

0000* 

0306 

1FA0 

CALL 

0R10           !  SEND  MESSAGE  I 

0308 

D0E5 

CflLR 

A3CRTM         !  SEND  ABORT  ! 

030A 

9E08 

RET 

030C 


END  LOADFL 


EMSG: 

030C 

07 

BVAL 

7 

030E 

2F41 

WVAL 

'/A' 

0310 

424F 

W7AL 

'30' 

0312 

£254 

WVAL 

'RT' 

0314 

0D 

BVAL 
FNTADR: 

%0D 

0316 

454E 

WVAL 

'EN' 
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0318 

5452 

WVAL 

'TR' 

e3iA 

5920 

WVAL 

'V   ' 

1 

031C 

504F 

W V  a  L 

'PO' 

031F 

494E 

WVAL 

'IN' 

7320 

5420 

VV.SL 

'm   ' 

END    SUPP0RT3A 
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APPENDIX  E  -  Support  Programs 
A.   TEXT  FILE  TRANSFERS 

To   transfer   test   files  from  the  MCZ  microcomputer  RIO 
system,  use  the  following  procedures. 

1.   Bootup  SASS  monitor  program  as  described  in  Appendix  C 


2.   Bootup  INTEL  MDS  system  with  CP/M  disk   having   ZSXFER 
program . 


3.   Connect  cable  to  MDS  system  TTY  oort  and  to   the   SASS 
'B '  connector  (to  replace  line  printer). 


4.  Enter  'transparent'  mode  of  SASS  monitor  operation  to 
operate  within  the  MCZ  RIO  operating  system,  by  the 
following  action: 


TYPE   0  <CR> 

(displays  PIO  prompt  '%') 


5.   Setup  to  transfer  text  file  by: 

TYPE   "PRINT  <Filename>" 
(Note:  no  <CR>) 


6.   On  the  MDS  system,  execute  Z6XEER  program  selecting 
text  file  transfer  (T'). 


7.   On  SASS  (RIO)  system,  type  <CR>  to  start   transfer. 


After   the  entire   file  has   been   displayed   on   SASS 
terminal,  depress  any  key  on  MDS  terminal  to  end  transfer. 
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'.       Z8PPC/CPM    TRANSFER    MODULE 

Z8XFER: 

PROCEDURE    OPTIONS (MAIN  )  J 
^INCLUDE    'DIOMOD.DCL'; 
^REPLACE 

TRUE  3Y  'l'B, 

3UF3YT      BY  8, 

FALSE      BY       '3'EJ 


DCL 

ANSWER         CHAR(l), 

EN  CHAR (11)    VAR, 

I  FIXED, 
W«IT  BIT(l), 

MEM  FIXED (15), 

NUM3UF  FIXED(15), 

REPLY  CHAP.(l), 

CMDBUF  CHAR (80)    VAR, 

C  CEAR(l), 

CRCNT  FIXED(15), 

TMP  FIXED(15), 

ACCUM  EXT, 
CHI  EXT, 

CH2  EXT, 

PT1  FIXEDU5), 

PT2  FIXED(15), 

DEX  FIXED(15), 

OrDEVN  BIT(l), 
ANSR  EXT, 

HEXVAL         EXT, 

C3JXFR  ENTRY        EXT, 

TXTXFR  ENTRY         EXT  J 

/«<*  -*■-  y*  »i>  j*y*  -j*  y»  >y  *j*  y#  *ju  »•#  ***  -*««v  —-  ■«**  «M  *•*  y*  •■■-  -  *  »'**>-  %t*  -■-  »>»  «'**<^  «.■»  -j-  »'-  ■»*-  *■-  «ju  **-  «j«  -.**  s.t*  »<>  -'*  •  •*  -'»  y*  y*  «*#  «o  *u  -o  «•*  -.»* 
*i*  *f»  *%■*  *|*  »,»*,-  *, .  -j*  ^f»  *,»  *y»  »,-  -y»  -^  *f»«^  '(■•*(*■  *i*  *<•  »r*»i*  *»*  *i**i*  *i*  ^*  *i*  *T**t*  *i*  ""p*  "***ir  *v  *Y**¥*  *i*  *»*  *i*  n*  *p  i*  ***  nf*  *tf*  *v*  *i*  'f*  i*  f*  t 

*  PROGRAM    INTERACTIVE   HEADER    SECTION      * 

y*  Vf  V*  *iV  *V  V'  ***  **»  *■'-»  v*  *'*  ***  V*  ***  V*  »•*  **<*  V'  *-'•' *'-  *■'"  V"  V'  *'*  *'-*  *'*  »**  *■'"  *■•*  ** -  •*'*  V*  ***  V'  V*  V*  -'»  -•*  V  »*■  *'*  *■**  »■'  ■  V*  »*»  -■»  **-  »■-  »■*  *•' *  *  -  • '  -  / 
2,*  *-,*  -i»  j^  i*"!*  *r*  -v-  -,»  v  -,-  *r>  -ri-  -o  ''i-  *i*  •*•*!*  *i»*<»  1**1- »r  -v*  ******  *v  *c*  **»  *r»  *r  n*  ******  *V*V*i*  *S*  *r»  *m  *p  ***  *Y*  *>  •%*■  *r»  *i**i*  t*i*  *i»  *r-  / 

PUT    SKIP    LISTC 'Z8XFER:    SASS    TO    CPM    ASCII-HEX    TRANSFER    PROGRAM'); 

PUT    SKI?    LISTC        ***    NOTE:'); 

PUT    SKIP    LISTC  CABLE    CONNECTIONS    BETWEEN    THE'); 

PUT    SKIP    LISTC  SYSTEMS    VARY    AS    TO    TYPE    OF'); 

PUT   SKIP    LISTC  FILE    3EIMG   TRANSFEREE  ' )  J 

PUT    SKIP(2)    LISTC  TYPE   <CP^    TO    CONTINUE..'); 
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<J*  -•-  «J*  s.%m  >J*  -*■*  ••- 


T   TT  1*  *t*  *?  T  VTTVTI'T  HT  -i-  *T*   *V  *<*  T"  *1T  n*  'i*  T"  •¥•  T  *r  *t"  *T  *T*  ***  *i-  *r*  *l%  f  *V  *T*  'r*  n»  *V»  *I»  "T 

*  DET^PI^INE    TRANSFER    TYPE  * 

•A*  »'-  M>  Ufa  y-  *»*  «J*  y*  y>  ^  -  <k<«  *'*  *>*'  -i-  •.'*  -'■'  *-'-  *■'*  -'-*  «-J'   -J-  - ''  -'-   - ''  -  -  -  -  ~"  -'-   -  '*■  "■'-  *'»  »'*  •,'--■*«'-  *'*  «.•-  »'-  »W  •></  yU  -l,  yU  »'*  Uk  •>'«  »'  -  •,)<  *•..  »'*  -  >-  y*  *jfa      / 


put  skip(2)  listcis  file  a  text  or  cote  file?  (t/c)')j 

wait=truf; 

do  while  'wait=true); 

rT^T  LIST  (ANSWER)  J 

IF  (ANSWER  =  'T')  THEN 

CALL  txtxfr; 

ELSE 

IF  (ANSWER  =  'C')  THEN 

CALL  objxfr; 

ELSE 

put  skip  list(  'invalid  entry'); 
end; 
end  z8xfer; 
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2.   TXTXFR  MODULE 
TXTXFR: 


proc; 

%include  'diomod.dcl'; 

%REPLACE 

T?UE     BY       'l'B, 
BUFBYT   EY       6, 
FALSE   BY   '0'B; 


DCL 


ANSWER  CHAR(l)  EXT, 

FN  CHAR (11)  YAR  EXT, 

I  FIXED  EXT, 

WAIT  BIT(l)  EXT, 

MEM  FIXED(15)  EXT, 

NUMEUF  FIXEDU5)  EXT, 

REPLY  CHAR(l)  EXT, 

CMDBUF  CHlR(80)  VAR  EXT, 

C  CHAR(l)  EXT, 

CRCNT  FIXED(15)  EXT, 

TMP  FIXED(15)  EXT, 
ACCUM      EXT, 

CHI  CHAR(l)  EXT, 

CH2  CHAR(l)  EXT, 

PT1  FIXED(15)  EXT, 

PT2  FIXEDU5)  *XT, 

DEX  FIXED(15)  EXT, 

HFXVAL  EIT(8)   EXT, 

ODDEVN  BIT(l)  EXT, 

PECTTY  ENTRY    EXT  5 


/*  terminate  transfer  and  save  the  file  */ 
terminate: 

numbijf  =  divide:mem,bufbyt,i5); 

/*  write  buffers  to  disk  file  */ 
if  mem=0  then 

do; 

put  skip  list('no  data  transferee'); 

call  delete(addrldsstfile) ); 

call  reboots ) ; 

end; 

MEM=0; 

DO    1=0    TO    NUMBUF-i; 

CALL   SETDMA(ADDP (MEMORY (MEM) ))J 
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m~M=MEM  +  SUFEYT; 

if  wrseq.'addr(  destfile}  )  ~=0  then 

do; 

put  ski?  list(  'disk  full'); 

call  reboot  ;  )  j 

end; 
put  skip  list( 'transfer  complete.'); 
call  reboot  i  )j 
end; 

/***  "ilt  *'*  V*  ***Mff  ***  V*  *'****  V-  ******  *•*  »**»•*  •«*  »**  *•*  *V  *****•»  *«*  «JU  »•-  *V  *•***•  ••-*!*  ■.**  V  ***  *'*  V"  *'*  *'*  ***  *'*  ***  V*  V*  *'"  »'*  **<•  ***  »•*  •>■*  ******  ***  *'*  ****** 
i*  ttttv  «t»^*  *r  *i*  *r  n**i*  t*  *»***»  -r-v  t'*i*  ti*  *v  *r  *i*  V  *r  »i-  *i**?  *r  V  *r  *r*  ^r^-r1 *r  *r  *r  si*nr  *r  n*  *v  *V*  *t*  *»>  t"t»  i- ?r«  ^r  i* 

*  TXTXFR:  PROCEDURE  FOR  TRANSFERRING  A  TEXT      * 

*  FILE  FROM  SflSS  TO  CPM  VIA  A  C^BLE  FROM  * 

*  THE  SASS  '2'  CONNECTOR  TO  THE  INTEL  TTY  * 

*  PORT.  CPM  WILL  INTERCEPT  SASS  CRT  TEXT  * 

*  DISPLAY  FROM  THE  MCZ  EDITOR.  * 

*j*  y> %i*  *y  ******  ***  ***  ******  *v  *** ***  **•  "J****  -***te  v* ***■  v****  v*  »v *.**  ■-**  *•* ***  *•* *•*  *■**■*  *•* ***  *v y**v  ***  *** *•*  *•-  -**  ***  ***  **- *»»  ***  m*  *'- *** ***  %**  j*  / 


ECL 

1  DESTFILE  BASED (D?CB0( )), 

^INCLUDE  'FCB.DCL'; 

DCL     MEMORY  ;0:0)     SIT (16)  3ASED (MEMPTR ( ) ) ; 


TFILE: 


*       TFILE:  PROC  TO  DETERMINE  NAME  OF  FILE         * 

-\'  ^#  #  *!**!*  ^  ^  ^^i*  ^  *r*r  ^r  ^  ^r  *£*£  *p*£*^*£*ff*fC*f**{**lC*)C  *5**r  *r  ^  *£*£*£  *i**r*!**r*r^^^*£;^^##3£;iC5i»-r^  / 

proc; 

/*  read  file  name  */ 

put  skip  list('what  is  the  filename?'); 

get  list(fn); 

/*  process  optional  drive  prefix  */ 
i  =  index(fn,':  '); 

IF  1=0  THEN 

DESTFILE. DRIVE=0; 
ELSE 

do; 

DESTFILE. DRIVE=i; 

fn  =  substr(fn,i+1) j 
end; 

/*  get  filename  and  type  */ 
i  =  index(fn,  '.  ') j 

IF  1=0  THEN 

do; 

/*  no  file  specified,  jse  '.txt'  */ 

destfile. fname  =  fn ; 

destfile. ftype  =  'txt'; 

end; 
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ELSE 

do; 

pestfile.fname  =  substr ( fn , 1 ,1-1 )  ; 

destfile.ftype  =  sues  if ( fn , 1+1 ) ; 

END; 

END  tfile; 


/*  INIT  FCB  */ 
DFSTFILE.FEXT  =  0J 
DESTFILE.CREC  =  0? 

/*  OBTAIN  FILENAME  AND  CHECK  FOR  EXISTING  FILE  */ 
CALL  TFILEJ 

if  sear< abdr(destfile) )  ~=  -1  then 
do; 

put  skip  list( 'delete  old  file?  (y/n)'); 
get  list (answer); 
if  (answer  =  'y')  then 

call  delete(addr(destfile)) ; 

ELSE 

c.*ll  reboot  (  )  ; 

end; 

/*  open  new  file  */ 

IF  MAKE(ADDR(DESTFILE))  =  -1  THEN 

do; 

put  skip  listcno  directory  space'); 

CfLL  REBOOT  (  )  ; 

end; 

/*  compute  buffer  space  */ 

numbuf  =  divide(memsiz( ) ,bufbyt,15) j 

if  numbuf=0  then 

do; 

put  ski?  list ('no  buffer  space'); 

call  reboot (  )  ! 

end; 

/*  main  loop  checking  for  kb  entry  or  tty  receive  */ 

MEM=0; 

wait=true; 

do  while  (wait  =  t?.ue)  j 

if  break ( )  =  true  them 
CALL  terminate; 
if  fectty  =  tpue  then 
do; 

if  mem  <  numbuf  then 
do; 
memory. mem )=rdrdr( ) 5 
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ELSE 


end; 


end; 
end; 

END   TXTX71; 


MEM    =    VEM    +    I} 

end; 

do; 

put  ski?  listl'eile  too  lapge'); 

call  reboot ( )j 

end; 
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OBJXFB  MODULE 


OBJTFR: 

?DCC  ' 

^INCLUDE  'diomod.^cl'; 

^REPLAC^ 

TRUE     ^Y       '1  '"3 


ECL 


BUF^YT   BY       129, 
FALSE   BY   '0'B» 


"MSWFR    ^HAR'H  EXT, 

"FN  CHAR 'ID  VAR  FIT. 

i  eixee  ext, 

WAIT  "PlTfl^  EXT, 

MEM  FIXED' 15)  FXT, 

NUMBUE  ^IXEP'15^  EXT, 

RE^LY  CFAR(l)  EXT. 

CMDPUF  (1:80)   CHARED  EXT, 

C  CFAR'l)  EXT, 

CR  CHft.R(l), 

CRCNT  EIXED'15)  EXT, 

TMP  EIXEE'15)  EXT, 

AC CUM      EXT, 

HEXVAL  BIT(e)   EXT, 

CHI       CHARd)  EXT, 

CH2       CHAR(l)  EXT, 

PT1  FIX'D'15)  EXT, 

^T2  FIXEr(15)  EXT, 

D^X  FIXET>(15)  EXT, 

ODDEVN  BIT(l)  EXT, 

RECTTY  ENTRY    ^XT , 

a.TOHFX  ENTRY    EXT; 
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/  °'  *'c  ;'t  "';;'*  ^*  5*i  *t*  *■';  ?*;  ^  "■'*;';  "Js*^  ?'*?'*  *■*;  sjc***  y?  *'c:':  ■*'*;';  ;'t  *"*  siss 


5? 


i  ~' .  M*  »'-  -■-  »'- 


.'.  v'*  ,■-  vO  . 


OPJXFR:    Pr'0CEPU^   TO    TRANSFER    CODE    FROM 
7300O    ^mqdy    T0    cpm    vjLES    RY    USING    TUE 

mFCTjO\;IX   FORMAT.    C0MNECTI0V    IS    FROM 
INTEL    TTY   PORT    TC    SASS    CABLE    'A'.    CPM 
iVILL    ASSUME    THE    ROLE    OF    MCZ-RIC    SYSTEM. 


*i»  *»•*  *.-  *.»  »t*  ^i-  *r  *.*  n-  t  ■ 


*V  -'-  »»*  v  *'"  *l»  * '■»  »■-  »J*  V  *■>  -'-  «•-  »**  »'*  -1-  ^-  v*  o-  ».'-  *•-  «•*  -o  ti,  &u  o-  ou  *■-  »«*  o»  «•«  v'^  »''  Vi*  / 
*i*  »•»  '»»  *r  *r  *i*  *r  7i*  «"»*  V  hp  *>•  *i*  *•*  *v  *r  -i*  -v  *r  *i^  i*  y'i'vi'tv  *i-  3r  *i»  *r  V  nr  n5  / 


DC! 

1    FIFILE    BASED(DFCB0(  )  )  , 
'HMCLUD?    '^CR.DCL': 
DCL 

1  lofile  rasep(pfcb1( ) ) , 
%inclitdf  'fcb.dcl'; 

DCL 

FVM5UF       'P00PM    ?IT'3), 
ODDBUF      '200?)    BIT(8), 
RECBUF      ('l".m)       CftARU), 
FLAG    BIT'l)  J 


SflSS    TO    CPM    CC^F   FILE   TRANSFER   BY    TECTPONIX    FROMAT   */ 


RUT 
PUT 
RUT 
PUT 
GET 
CR  = 


S^I? 
SKIP 
SKIP 
SKIP 


LIST('CP" 
LIST(  ' 
LIST  f  ' 

LISTC 


LIST(RFPLY) J 


WILL    ASSUME   THE   MCZ-RIO   ROLE    FOR    TRANSFER'); 
SETUP:    CONNECT    CA3LE    TO   SASS     "A"    CCNNECT- 

TOR    »ND    TO    INTEL    TTY    POFT.'); 
ENTER    <CR>   WHEN    READY.  . 


/  » 


'! 


O-  s>->   -»-  »'*»•»  -J*   -"*  »•*  -JL.  »'«  -■-  *U 

»o  *»*  -i*  ***  *r*  *.*  'i*  *>*  *i»  *.»  n*  *r 


«<*  -■»  «j»  «.•.»  »•  *  ».■» 


•>'-  *<»  «**  ■■*«  *'»  »»*  %**  *'*  *.'»  »0  V*  »•* 

*r  *i*  *r  nr  *'"  nr  *»*  *•"  it  *i*  *i*  *(* 


c* 


»■*  WU  «•*  -»-  »<*  <JU  *t*  «A« 

*»-  *i»  'i*  *i~  t*  *i"  -r»  i- 


CFIL^:    PROCEDURE    TO    DETERMINE   THE  * 

FILENAME    OF   THE   OBJECT    FILES  * 

»  -j *  v«  ->* »' » -< #  -'» v  **'  "■'  •  -*'  - '*  vy  V'  ^*'  ^'  **-  - ■'  V"  **-  «'«  «''  »-^  *'■'  »•••  '|'  «"*  ^''  *'■*  ** '  t**  ^'  -■*  -"  °*  '**  *'-•  ^-  »■''  ^  ^'«  *"  ~,-#  / 

".'"'?  ..,-);.^.v-r,?':-  Tr  ,r  ,r  ^r  ^  ^  .,,  .,..  ,f.  *r  ,^  3t.  *,-  *,»  *,*  *,^  ,,*  3?  *,«.  #,»  ^-.  r,»  3?  ^,*  3^  *»*  335  ,,»  ,,»  -c  ^ 


CEIL7  t 

rrccepure; 

/*    ?F«D   FILE    NAME   */ 

^UT    SKI^5   LI  ST  ('WHAT    IS    TUE   FILENAME?'): 

GET    LISTfFN); 

/*   PROCESS    OPTIOVL    DRI7F   PREFIX   */ 
I    =    INDEX (FN, ': ') ; 
IF    1=0    THEN 

do: 

hifile. drive  =  v\ 

lcfile. drive  =  0; 

end: 

ELSE 

do; 

HI7ILE. DRIVE   =    1! 
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l07ilf. drive  =  1. 
fn  =  su1str(fn ,1  +  1 )  ; 
end; 

/#    qyip    y»j4M"ES    flND    TTYP^^    */ 
I    =    INDFX'FN, '.'); 
I?    "(1=0)    T^FN 

FN    =   SUBSTR(PI, 1,1-1) J 
HIFILE .FMA.ME   =   FN? 
LOFILF.FNAMF    =    VN  ; 

hifilf.ftyff  =  'obj'? 

lofil^.ftyf*  =  'obj'; 

end  cfilf; 


/  •!'/  V'  *'*  *'*  »'*»'*  «■'-  -•*  ■»**■  O-  .'*  V**  %'*■-'*  »•*  «l*  vl»  «J-«  *1*  «.U  »V  *J«  •.'*   »l*  *.'*  tj*    %**  •.'-  «.'.»  fc'-  ■«.'*  »*»  »•>  «.',.  ■.'-  -'*  -*-  m>S    -■•■'   -'»  ■.'-•  »l#  •.'.•  O*  *'>  +f*    »*•  »** 

*  FCHO:  PRCC  TO  FCHO  C^D  LINE  BACK 

*  TO  ?80tf?  MONITOR. 

ju  >'-  *»-  »»-  *»-»»*  »■****  j»j  «u«biA«  -';  ^c  *'*  J?  y*  s";  3*2  *'*;*£  ***  i't*1*  **I5"i  *''*'£  "**'  *■'*  "'*  j'f't ;'-  ;'*  ;'t  >'-  *-'*  - ;  ;'t  ;';  *';  ;''  " ;  ;'*  ;'c  ;''  ;'' 

FCFO  : 

?roc; 

BCL 

NM"^R  FIXED(8^  , 
EXTRA  FIX?D(e^ : 

/*  I  NTT  PUFFER  ?T^  */ 

N'MBU=3; 

EXT?A=l; 

/*  r7?v    c^D  LINE  F^OM  MONITOR  */ 

wait=true; 

DO  WHILE  (WAIT=TRUF): 
C*RDRDR' )? 

CMPBUF(N^p)=r; 

NMBR=NMBR+l; 
/*    FC^P    BACK   */ 
IF    (C«CR)    THEN 

DO   WRILF    'SXTRA~=NMBR) ' 
C=C!*DBUF    EXTRA i ; 

call  wrpun(c) ; 
wait=false; 

end; 


FLSF 


y aiT=TRUE: 


end; 
return; 
end  echo; 
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'  *,*  ".■•  *i-  *t»  ',-  *,-  *."  *i»  V-  *.*  *■-  'i"  *»■•  *|*  *■»  'i*  'i*  *J*  *T  "T  •T  'i5  *i*  *t" 


GETREC:  PPOC  m0  GET  ONE 
FORMATED  RECORD 


:  5;;  $  *# :;: 

TECT8 


0  N IX 


»•*  »•*  *■*  x»»  ***  %•*  »•>  v*  *■**  *v  *v  ***  ife  ***  • 

r,»  *)»  ?(x  *,«  *,»  •>,-•  *,x  7,x.  *,-  *,5  ^,t  »,-  7^  ,,x  ■ 


*  x'  -  «.<*  x'  -  >'..  * 


GETREC: 

proc; 

crcnt=i; 

wait=true; 

/*  CHECK  FOR  RE^EIVF  rnA"  FROK  COM 
DO  WHILE  (FL«C-=TrUF)  ' 

IE  BREAKf )=TRUE  THEN 
do; 

flag=f\lss; 

wait=ealse; 
end; 
ie  ?fctty^tpue  then 
do; 

c-rdmjs  ' ) ; 
fecbuf(cpcnt)=c; 

I77    C=CR    THEN 

flag=false; 

CT,CNT=CPCNT^i; 

end; 

ENf;         /*   DO   WHILE    */ 

return; 

end  cetrec; 


OR    TTY 


7  #  / 


°' ;'  - ;''  *' .  "*' 


.  *l*  *l#  -JU  *l-  Jb  '■-  -'-  -' -  ajb  »*- 


.   x'.  »•-   »•*  ,J»  «J*  dU 


POL  AST:  PPOC  TO  SEND  FINAL  ACK 

TO  Z8000  AND  SAVE  FILES . 


# 


*JU  »•*  *u  ,•*  xi-  *».  o,  x'*  *» 


X^,     X*-    -.'-      *•*   XA-     ->*     Xl*    xJ-       X--     .O     X';    yU     .^     X'*    jV      X>,     .!*»/,      xl.X       «».    X1-     %'*   JU     X»*      X»-    «|«     x'-     X**    x"#     X»»    x',      x  '-     x'j     <JU     .*-     x'*   X,"*    J*     ».>-      X    -     *i-     .J^    X 


DOLAST: 

proc; 

/*  chfck  <cfsum>  for  dat*  field  */ 

TMP-aCCUr; 

^ccuNi=0; 

CHI    =    RFCBUE(7) ; 
CH2    =   PFCPIIE(8)  ; 
CALL    A.TOHEX; 
IF    ~^TM?=ACCUM)    TFEN 

do; 
c='7'; 

CALL   WRPUN(C)t 

return; 

end; 
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/*  SEND  ACK  '0'  CHAR  TO  Zp000  */ 

c='^'; 

call  v/ppum'c) : 


/*  SAVE  EV7N  PROM  FILE  ''HI FILE)  */ 
NUMRU^  =  DIVIDE'PTl ,RUFBYT,15); 
IT  °T1=0  THEN 

do; 

^u^  skip  list  ('no  data  transfered')  • 

call  deletff addp(hitile) )j 

call  delete  (addr'lofile  )  ); 

call  reboot: ); 

end; 
?ti=0; 
DO  I  =  0  to  numruv-i; 

C*LL  SETDMA( ADDP ( EVNRUF ^ PT1 ) ) )J 

PT1=PT1  +  eufpyt; 

i'  wrseq  '  a.ddr(hifile)  )~-=0  then 

do; 

put  skip  listf 'diskeull') ; 

call  ^eroot '  )  ' 

end; 
end; 

/*  sa^e  odd  pro"  file  (lc^ile)  */ 

NUMBU^  =  DTTriDWPT2,*UERYT,15); 
PT2=0; 

do  r  =  0  to  wjm3U*-i; 

C*LL  SETDMA ( SDDP ( ODDBUF' PT2 ) ) ); 
PT2  =  ?T2  +  RUERYT; 

ii?  wrseqf addr(loeile)  p=0  then 
do; 

put  s^ip  li  st ('disk  full'); 
call  reboot ( ) ' 
end; 
end; 

!*ait= false; 

PUT  SKI?  LIST( 'TRANSFER  COMPLETE.'); 

return; 

end  dolast; 
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/»i-  *£**■**  •-•  ■   •*'»«.'-  *'-»'-  »'«•  *'*  •.'*  -o  *X#*b  -'■»  -J-  -'-  ->•  -'-  ->.■  -■*  «J*  -■-  -'■-  »'»  -  -  *.)'  -'-  --•.'.  *>  O'tif^y  »•-»',  o*  *.'*  *h  *■#  ■*'*  •><*  *'  «■-  ~—  «a«  *'*  ^-  «f«  %•«  «.'»  «.■•  «'- 
',"  •»■•  -i"  *i"  *•- 1-  *r-  i-  *i»  n*  *■'■•  i"  *r  *r  *i~  n*  *t*  *i*  *r*  *p  *i*  *c  *v  "p  *r  *v  *r  *>*  *i*  *r  n*  *'*  *r*  *p  *»*  *p  *p  *p  ***  *<*  *»*  *»■*  *t*  *p  "V  i*  *»*  •¥■  *»■■  i*  *i*  *i*  *** 

*  STRREC:  PROC  TO  STORE  THE  RECEIVE?         * 

*  Dvpo^Ti  im  file  3UEEEFS.  * 

*'.  *.'*  •.!«  -*»  %l*  »»*  »'.  %'*  «.*-  Jj  •.'.»  «f*  <J-  <JL»  »'*  >'*  •>■«  •.*-  «JU  -.1*  »'-  J*  »lrf  »»«.  ->*  »•*  »t*  *J-  «J>  %>*  *:*  *'»  *'*  «J*  »*#■  V  «■**  »'*  *''  ***  »'*  *'<•  --'*  »'■*  »'*  *^  ■»'-*  "•'*  »**  "•'"    -*"■  »■'*  »**   / 

*,»  *,^  -  -  «v  -  *  i-  *«*  *r  ~f  *i*  *r  i5  *.*  -!■■  *i~  -r  v  **"*  "V*  *r  '1*  ■*»*  "i-*  t  'r  *i*  *■•  i*  »»-  *r  '.*  *i*  -v  t*  n*  n*  *i»  *r  *>*  *»*  *p  *v  *p  f*^i*  *i»  *r  *r*  *i*  *p  *p  *i*  *»-  / 

STRREC: 

pp.cc; 

IF    CRCNT=9    THEM 

CALL  dolast; 

ELSE  IE  CRCNT=41  THEN 

CALL  dassem; 
ELSE 

do; 

call  wrpun(c); 

emd; 
return; 

sme; 


.  O-  «•>  O-  *■*  *'.-  «««  a 


/*»  j  »•«■  «A*  »■»  »o  «'*  WU  ■•*-  «V  »•*  ***  *•*  *'■*  V*  *•*  •***  -*'  "V  *•*  *'"  ***  "^*  "^*  *J-  *'*  *'  *  * '  *  V'  *  '•"  •*-  -  '*  • '  *  »' '  *■'■'  ~'*  *'-  ■•'■*  *' »  ■**'  **"  *'*  *  -  - 
»,»  *(»  »(*  •■(»  »,»  *,»  »,»  »|»  *|fc  *,■»  +\*   »(*  *^»  *»»  *,»  »,«■  *■!*  *|i  »!"•  *,*  *,%  •-,»  *^»  ^^  *(•*  *|*  #,»  ?j»  ^,*  S(»  *[»  »!«.  »|»  ^^  -■(*  »,~  •^^^  »,»  «p  »,■•  *(%  »,  ■.  -,■•  »^  • 

*  "DASSEM:  PROC  TO  DISASSEMBLE  ONE  RECORD 

*  ANT  ST^RE  IN  PROPER  BUFFER. 

«■-  ■#«  *'-■  »■*  ^«*  .'-■  »<*■  *y  *Jh>  ^>^  ot»  yu  yu  »•*  » i*  «i#  .'*  »i*  »<  -  «.'*  «i*  o^  «*«  o*  *v  J#  V-*  *■*  "■'■•  ■»"*  ^"  -'•'  ^'  •*'  ■•  r  *'■*  *'*  *''  -'*  **(•  kl*  V'  *^*  *'*  ■»*■*  -"-■  ■■''  *■'*  •■''  ■"** 
7(»  *!*  *,»  *|»  ^,»  *,»  *,*  *,*  ,,»  J,*  *,»*.»  *^  *f»  *|»  3p  -p  •»»  *^»  *,-  «,»  #■,»  *|»  *i»  ?j5  *,fc  ^»  ^,-*  *-,»  ^.  #^*  ',-->*  +f  ?i^  *)*  »|»  »|»  »|-  ^*  *|»  *i*  *i»  *\»  ?i*  'i*  *»-  *|»  *|»  "(* 


*  *•*  ^'*  ***  *'»      / 

-  3,-  V  ',-  -j-    / 


DASSEM: 

prcc; 

dex-i; 

accl™=0; 

pti=i; 

PT2=i; 

/*  OBTAIN  <ADDRXC0UNT>  CKSUM  */ 
DC  1=0  to  2; 

CHI  =  F^C^UF(DEX^  J 

CH2  =  R.E.CBU.F(B.EX+1)  ; 

DEX  =  D^7  +  2; 
C»LL  <T0HEX; 

end; 

/*  obtain  <cksum>  */ 
tmp*accum; 

accum=^; 

CHI    =    RpCBUF^DEX)T 
CH2    =   REC-BUE(DEX  +  1)  ' 
DEX   =   DEX    +   2; 

call  »t0hsx; 

/*  compape  cksums  and  report  error  */ 
ip  "'tmp=4ccum)  t^en 
do; 
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C='V; 

CALL  wrpun(c); 

rsturn; 

end; 

/*  disassemble  30-bytf.  p«ck8ge  and  store  */ 
accum  =  0; 
do  1=1  to  15; 

chi  =  p*cbuf(dex)  J 

CH2  =  REC?UFfDEX+l) : 

dfx  =  pex  +  2; 

call  *tohex; 

/*  store  in  prober  puffer  */ 

ie  opd^vn=true  then 

do; 

evnbtjf'pti)-=hexval; 

HEXVAL=2; 

OPDEVV  =  F.ALSE; 

end; 


ELSE 


do; 
ct>d3u7??t2)=hexval; 

fexv*l=^; 

P*,2=PT2-i; 

oddevn=true; 

end; 


end; 


/*  compare  cksums  amd  report  errors  */ 
tmp= accum: 

?CCUM=0; 

chi  =  rfc3uf'df:o  ; 
ch2  =  r?!cbdf(dex+1); 

call  atohex; 
if  ~(tmp=accum)  ttfm 
do; 

c= '? ' ; 

call  wrpum(c); 

petupn; 

end; 

ELSE 


do; 
c='0'; 

CALL    WRPUNfC); 

'vait=f*lsf; 
return; 

end; 
end  d»ssem; 
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/*  T  MIT  FCB'S  *  f 
HIFILE.FEXT  =  ?' 
LOFILF.EEXT  =  0; 
HIFILE.CREC  =  0; 

LOFILE.CRFC  =  2m, 

/*   OBTAIN  FILENAME  AND  CHECK  FOR  EXISTING  FILES  */ 

CALL  ceile; 

if  'st»f.(  «*df(hieile))~=- 1  !  sea?.(  addr'  lofile)  )~=-l )  then 
do; 

put  skip  list  ('delete  old  files?  (t/n)')j 
get  list'  answer); 
if  (answer  ~-  'y')  then 
do; 

call  delete (  \  ddr( hi  file)  )  ; 
call  deletefaddr'lofile) ) j 

END? 

ELSE 

call  reboot ( ) j 
end; 

'*  C?rN  NEW  FILES  */ 

if  'make(addr(hifil2))=-1  !  make ( addr ( lcfile) ) =-1 )  then 
do; 

put  ski13  list ('no  directory  spate'); 
call  reboot(  ); 
end; 


/  v*  'V  J**  V'  *"1  *  *-'■*  * '*  v*  ***  "•''■  *-**  ^*  ***  ■■**  "-v  v*  **'  *v  •>*'  *■**  ~j-*  ■***  ***  *■'»  "'*  **»  ■**■*  » v  ***  *•-  •*••  »•*  -*+  ***  -.■'  *>*  •>'■'  v*  - : ■  ***  »• '  »'*  ■",*  -**  »**  *v  **-  *■'■*  ***  **•*  *'*  ***  *•*'  v*  v^ 

'  #,»  »^  ^j*  *i+  r\-*  *|»  »,»  ^,*  r,»  *,«  ^,*  *|»  *,-»  .,-»  *|*  7)S  *j»  *^t  ,y«  * ,«.  r,S  ,t»  ^ !»  ?(<I  ...»  #^  #^»  ^,v  f^.   ,,«  »,  ■.  , ,..  *,„  ^|*  *,-  *,-.  >>|«  *|»  *|«  *|*  *,*  *j»  »j»  *j»  »,»  #,*  #p  *p  »,»  ^»  *|»  *,*  ^-»  Jjs  *-(^ 

*  MAIN  CODE  SEG:  LOOK  FOR  'B;',  ECHO  * 

*  ALL  VCK  THRU  PUN  PORT;  SEND  '9',  * 

*  SEND  '0',  AND  BEGIN  STORI NG-DI3  A.SSEM-  * 

*  BLING  TECTRONIX  FORMAT  TO  THE  TWO  * 

*  OBJECT  FILES.  * 

•Jo  ->'  mAr  O-.   »'»  iXr  «1*  *'  -  »>-   .1*  -J*  »»>  -Jj  *U    *'.,   O^   .  >j  JL.   *i»   «'*  •,»*  *JU  -<»  -■-   »l#  »»*   -  -  «/«   t,t*  *A*  *■«  «JU  *■*  V*   -'-*  >b>   vJ-   -'-  •«.»*   JU  •.'-   »<*   V*  *'.  »■  -  *JU   -'*  ■»**  -■-   *>*  <JU   » '*  *'*  ***  *"      / 

*c  *>*  *r  ***  *•"  i*  T"»*  *t*  *i*  *r  *»■*  n5  *p  *•■*  n*  *■■*  *nr  *•■•  -i*  *r  ^i*  i*  *i*  *r"  *»**  *i-  iti"iWi,Ti,TTT'i"rvi*n*YVTi,T'r»r'r  i-  A*  *r  *!••  *r  ***  / 

cddfvn  =  true? 
wait  -  true; 

/*  wait  for  'b;  '  */ 
DC  while  (wait=true) ; 

IF  break(  )~thite  then 
'call'dolast; 
if  rectty  =  true  then 
do; 

C=RDRDR  ')  ; 
I"P(c='B')    THEN 

do; 
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C=EDRD? 

05 

IF    'C=' 

;  ')    THEN 

do; 

CMD3UE'1)='B'; 

CMDBUF'2)='; '; 

CALL  echo; 

fcfAIT*F*LSEi 

end; 

ELS1? 

**it=teue; 

end; 

end; 

end;/*  do  while  */ 

/•  receive  records  and  convert  for  storage  */ 

wait=true; 

do  ¥hile(v»it»tru?); 

call  g-etrec; 

call  stdr'c; 
fnd; 
end  oejxfr; 
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Z3LIB  MODULE 


Ma.MF     'Z8LIB' 

TITLE    'ASM  ROUTINE  LIB  EOR  ZSXFER ' 

*  DECLARATIONS  * 

.,  ■  *,■»  *,*  .-,.  t  .,.  ,,-  nt  •,* ,,,  -,»  -,-*  *,»  *,»  ^,*  *,-  ,,,-,.-,»,,.  ,.,.  ,,.  •,»  ?,,  *,»  ^  ^,  *,■.  * i*  t  -I-  ',-•  .,»  t  *(-  ^i*  *i-  *r  -,-  *r  *v  "i*  -is  7i*  *r»  n*  »■*•  ■v  *r*  *i*  *i*  *>*  'r  i*  n*  n*  *t*  *i*  *v*  *t* 

5RETURNS  '1'  EOR  RFC  CHAR 

J  CONVERTS    T>/0    ASCII    BYTES    TO    ONE 

J  ERROR  SIGNAL 

; ACCUMULATOR  EOR  CESUM 

;  RETURN  OF  HEX  BYTE 

IMAILBOX  FOR  PL/I  RETURN 

IFIRST  ASCII  CHAR 

?SECOND  ASCII  CHAR 

*  EQUATES  * 

-..•w  <^-  -,-  *,,  *,»»,■»■  *,-  3?  •>,+  Tf.  rr   ,,*  -,-  . ,-  7^.  ,,-.  *,*.  *-j5  rf>.  7,-  *r  -A*,*  ?,»?^  -|*  *v  *ix  'i1*-!*  'i-  »i»  'i*  'i-  T  '.-  'i*  *V  *»*  *T  T  *V*  *1**P  1"  *i  *  "V  'I**!5  *l*  »i»  "P  *i»  -i*  'C  *i»  -I*  »i-  -.»  *|»  "«*  *i"  *r 


;tty  (rdr)  cmd  po^t  »ddr 
j  error  flag  for  z8xfer  for  bad  ch 
j  accom  value  forr  check  sums 
; returned  hex  byte  from  2-ascii 


PUBLIC 

p  "^CTTY 

PUBLIC 

ATOHEX 

PUBLIC 

POST 

PUBLIC 

flCCUM 

PUBLIC 

HEXVAL 

PUBLIC 

ANSR 

PUBTIC 

CF1 

PUBLIC 

CH2 

TPORT 

*cu 

0F5H 

POST 

DB 

1 

4CCUM 

DB 

2 

HFXVAL 

DP 

1 

ANSR 

DB 

1 

CHI 

T)T3 

1 

CH2 

DB 

1 

; PASSED  CHAR  FROM  BUFFERS 
JSAMS 


P^CTTY:  "OUTINE  TO  FACILITATE  DIRECT 
I/O  STATUS  READ  TO  TTY  PORT. 


* 


*##^###:fc;:«####::c#####:£##:ft#5!s###:{{##>;:#;:s###:£:£##^ 


;clear  reg  a 

;reae  tty  cmd  port  status 
; check  for  receive  char 
5no  char  received 
;yes,  char  received 


RECTTY: 

AN  I 

0 

IN 

TPORT 

AN  I 

01H 

JZ 

FINI 

MVI 

»,!?1H 

i 

F I  N I  : 

MOV 

I,  A 

MVI 

H,0 

SHLD 

ANSR 

RET 

JLCAD  ANSWER 
JSTORE  IN  MAILBOX 
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■j";  A:";  ft;*;ftftft  ftftftft  fts'rft  Aft;';  ft  ft  ft:':  ft;1- ft  ;'-;';  Ai'j''- -  »■- rfs  -•- »•« »'- il; -'-  J-  «•-•>-  .<-.•.  o.  .i.a., <A..t«.vwk> »■.••*•  0.0.  .•- 

*TOEEX:    ROUTINE    TC    CONVERT    TWO    ASCII  * 

CH    INTO    ONE    HEX    BYTE.  * 

»  *•-  *»,  J*  «**  ,.«,  »fo  *b  fct,  „•-  *•*  J  ■  *•, 


»  *.'.»  */*  »'*  *4*  *•*  »'*  *A»  »'*  »'*»**  «.'.*  -  L*  »•*  .,'»  •■!*  »<  j  * 


.T0HE7:    CALL 


^"-  »U  «J*  *1-  kJ#  a 


CONBYT 


DONF 


CPI 

0TFH 

JZ 

"HONE 

MOV 

E,E 

LP  A 

CCT2 

ST*. 

CHI 

CALL 

CONBYT 

CPI 

0TFH 

JZ 

DOME 

MOV 

C,A 

MOV 

A,E 

?JL 

RAL 

RAL 

RAL 

AMI 

0F0H 

ADD 

C 

ST> 

HTXV«L 

RET 

;  CONVERT    FIRST    CHaE    TO    NIBBLE 
JFIRST    BYTE    CONVERT    ERROR 
J  QUIT 

J3T0RE   FIRST    NIBBLE 

JGET    SECOND    CHAR 

; CON  VERT    SECOND    CHAR    TO    NIBELE 

JSECOND    BYTE    CONVERT    ERROR 

JOUIT 

JTEMP    STORE    SECOND    NIBBLE 

JGST    HIGH    NIBBLE 


; ROTATE    TO   HIGH    NIBBLE 
ICLR    LOW    NIBBLE 
JFORM    REX    3YTE 
; RETURN    HEX    BYTE 


_     . •,  x  .  V«  «■»  «.'-  *.V  «**  •* *-   -J-  V*  - ■'  «J*  ■**■*  *»»  v»-  **«  »i*  *t»  »■-  »i*  -J*   *l-  .JU  *V  V*  *•»  «^-  ■>»'»  «U  ».•.»  V«  V*  ***  V*  %*■*  **«•  ***  ->'  *V  »■»«•  *■•"*  V-  *■'*'  *'*  51-  ***  ***  - '-  *'*  *'*  *'■*  "'-  *'*  *'*  ***  »'-  -1-  - '-  -'*  ■J'  *■'-  »•"  «J * 

*i**i*  ***  'r  *v*t»  1*1*  *»**t*  *i*i**r*  1*  *t»  1*  *r>  1*  »i*  *r*  *n  »i*  *t*  »i**i*  -v  *»*  i*  *p  *t*  *r  7<*  3**  n*  *r»  1*1*  *i*  i*  *i**«*  *r  I*"*!*  *i*  *p  *i*  *»*  *i*  -v  *t*  *i»  i*  *»-  -c  -t-'t*  -v»  -r**i*-i>  *p  <v 

,  -,- 

a       ■.'.    -I  -  %■«  »»,  «**  V  *<J  *V  V"  *V  **•*  *'»  *^'  *'*  *'"  *''  *'*  ***  >''  ***  v*w  >'-  s'-  «l«  »t#  *?U  *JU  <1«  *.V  «JU  -'■»  »■'*  *»-  WU  %'*  -'*  V'  O-  <J«  -irf  s,l«  *J,  ^O  fc'-  »'*  0«  »V  V*  «l«  «.»-  *'>  O-  fcl-  ai«  •.»*■  «l#  *.>«  kJU  si«  «.'-  -■-  «I«  *'» 
*|*  *|*  •    rf*>  rt»  ^,«i  *,»  *|»  ?]»  #|»  *>,»  #(»  ^,".  #^  #,*  *,v  ?(S  ^|S  ?,»  »,»  ?,»  J,-  *,«.  *-,»  *|>  ^(»  *(*  #f*  »(>i  ^,*  *,■•  wy+   ry.    *,.  ?^  ^,»  *■,*  *|S  ^»  *^s  *,*  *^»  ^_«  *|*  *J»  »|»  »|»  rf|»  ^(*  *|»  •-,  -  ^,»  »p  .,»  *t»  »|*>  »|»  «|*  *■,*  *(»  ^S  *,»  .,» 


CONBYT:    LD a 

CHI 

CPI 

30H 

JC 

ERR 

CPI 

3  AH 

JC 

OK 

C?I 

41H 

JC 

?RR 

CPI 

4?H 

JNC 

FRR 

OK:              ANI 

0^H 

MOV 

E,A 

MVI 

D,0 

LHLD 

ACCUM 

DAD 

T> 

SHLD 

ACCUN 

JGET    ASCII    CH?R 
JNO    CHAR    <30H 

;CK    IF   DIGIT 

JYES,    IS    DIGIT 

;CK    IF    'A'    OR   GREATER 

;ck    IF   <'F' 

jneed  lower  nibble 
;add  to  accumulator 


;add  new  byte 
jstore 


FRR 


RET 


J;  ^ 

•      ;;: :!;  ff.  f-^f.  9i  ''<  t'^i'f '','  't^  ft  *r  -1"  >r  ^  '^  -';  ft  ftft  *  ft  ft  ft  ft  ft  ft  ;!-ft  '<•  5!J  '^  '^ft  -!:  ft  ft  ft  ft  :*-;  ##s{!5!ts!tsSf  sjesCssjesO*  -r  ft  -!;  ft  ft  ft  ft  ft  ft  ft  ft 

END 
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C.       CPI^XFR    ?TOCj-'v   LISTING 


1.      Z8000   TRANSFER    MODULE 


ZS000ASM 

LOT  OBJ 


2.02 
CODE 


STMT    SOUFCE    STATEMENT 


'?.?? 


1    TRANSFER    MODULE 
CUSTOM      $TTT 

CONST8 NT 

PORTAD  :=  %FFD9 

PORTAC  :=  %FFD3 

P^OM_SIZ  :=  %1005 

MEM   START:=  %6000 

TXR'  :=  0 

FXrC  :=  200EC 

$REL  0 
GLOBAL 
TRANS      PROCEDURE 

»-j~  -o  «t#  o*  -JU  >JU  ot#  »*-*  **-  «V  »•*  »'-  V'  -'-  -'■*  »'*  *V  -'-  -1'  -■-'  -1*  -'-  *■**  J*  ***  -'*  -• •  -*-  ~'-  *'*  *'*  ■J*  -'-  -1-  V1*  »■'  V'  «■'*  * 
-v  *p  ^r  i*  *i*  •">*■  *i*  *ir  n*  *r*  n*  *i*  *r  i*  *f  *r*  ^  *i*  *i-  *c  *i*  *\-  *v  *t*  *tt  *i*  *v  *i*  »i*  "»*  *f  'i*  ^r*  *p  t*  *t-  n*  *t*  * 


0002  1005 
0004  2102 
0006   6000 

0009    8P38 


TRANSFERS    OBJECT    COPE    IN 
Z8000    MEMO-Y    TO    INTEL    CP/M 
OBJECT    FILE    ON    DISK. 


*      TR  iNS 

'i»  V*  'i*  *i»  i*  ^*  »»•  ^r  V  *.»  *p^P  ->*  *r*  »i»  V  V  V  i*  *t«  *r  V  n*  'i*  V  'r  ttttVi'^t'tt  n1  *i*  V  l 

ENTRY 
LP 

LD 


CL^ 


-U,#?RCM_SIZ         !  SET    TRANS    LIMIT    ! 

R2,#MSM_START       !  SET    MEMORY    START    ! 

!  ADD f ESS     ! 

R3 


!    ***    MAIN    LOOP   SENDING    BYTES    ***    ! 
DO 


000A 

2023 

LPB 

RL0.2R2 

000C 

PFF8 

CSLF 

SMDCF75 

000E 

A  920 

INC 

R2,#l 

0010 

A930 

INC 

R3,#l 

0012 

8B13 

C? 

P3,R1 

0014 

F601 

JR 

Z.FINI 

0016 

E8F9 

OD 

FINI  : 

!  GET    BYTE    FROM    MEM    ! 

!  SEND    CHAR   TO    CPM    ! 

!  .ADVANCE    ADR    1    EYTE    ! 

!  INCREMENT   COUNTER    ! 

!  DONE?. ...     ! 

I  YES,    DONE    ! 
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001S    2101  LD  R1,#EXEC 

001A  00FC 

P01C    1F19  JP  PR1 

001E  "END    TRANS 

001E  SNDCHR      PROCEDURE 

*!»  t  *r*  *i*  a»*  *»*  *r*  *t*  •**  *i*  i*  *i*  *p  'i*  *»*  *i*  *»*  *<-  'i*  *i"*  *<»  *»*  *v  n^  nr  *»»  *p  *»*  *i»  i»  ***  *t*  *»*  *r»  *%*  t-  *i*  ?i*  «v  •»* 

*  * 

*  SNDCHH:    SENDS    SINGLE   BYTE    TO    INTEL      * 

*  CP/M    SfTE?.   STATUS    CHECK.  * 

»•-   ^<*  >'•"    •■'»   «.'..   -*1--  +t*    »■*   *'*  »1#   >U   *•*  »'*  •.'»  »»»    -I--  «'«   *l^  »'*   s'*    *t>  ■*'*  s'*    »'j  O*    «■''  »G   »'-   ■»**   »<■»  «.'*   -•*  ->'-'   *■'*    >•»   *'.»  *<*  »•"  -'*  *•-      ■ 

*.■»  *r  Jis  i   •,1*  i'  *r*  **■*  *•-  •v  *i*  *t*  *>"  *••  *»*  "l- 1*  *p  "*"  *i*  *p  *i*  'c  *i*  *v*  '>"<•  "i*  *i"  *i*  *»»  *r  'i'  *i-  *»*  *c  m*  *t*  *c  **■  1 

!    SET    STATUS     ! 

!    CK    IF   TRANSMIT    RDY    ! 

!    SEND    3YTE    ! 


ENTRY 

001r 

3A04 

INI 

RI0.POHTAC 

0020 

EFDR 

f'£22 

115^01 

BIT^ 

?H0,#TX? 

0024 

?6EC 

JR 

Z,SNDCHF 

0026 

2A86 

OUT^ 

^CRTAD,RL0 

^023 

FFD9 

0  02A 

9E08 

pr-r 

0  02C 

END    SNDC 

HR 

END    TE'NSEFF 


2)    errors 
Assembly  complete 
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